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Fast Flexible Information 


MAPS™ IS FRESH! It’s the ideal decision 
support software product for today’s financial 
manager. With MAPS you get fast, fresh, 
flexible information handling the moment you 
want it. Plans, forecasts, models, reports can 
all be created and manipulated right in your 
own department. Changes that affect your 
company can be reflected and evaluated on 
the spot. And best of all, MAPS is canned 
for easy use! Call Ross Systems right now. 
Ask for a demonstration of MAPS. You’ll 
be amazed what a little fresh decision 
support can do. Currently available on 
worldwide timesharing, or purchase for 
DEC’S,* RSTS/E and VMS operating 
systems. Contact Ross Systems for 
more information today. 

*DEC is a trademark of 
Digital Equipment Corporation. 


“Now that’s fresh decision support” 


ross systems 

1800 Embarcadero Road 
Palo Alto, CA 94303 
(415) 856-1100 


Regional offices: New York, 
Dallas, San Francisco, Los Angeles 


MAPS meets your daily 


requirements: 

Financial reports.100% 

Financial planning.100% 

Consolidations .100% 

Financial modeling.100% 

Performance forecasts.100% 

Full color graphics.100% 
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You need maximum performance and minimum 
your printer. So, don't add-on just a machine. Add-on the 
unmatched printer expertise of Southern Systems, recognized by 
users as the leader in printer systems, from technological 
innovation through installation to the long-term service you need. 

In more than 4,000 installations. Southern Systems has proven 
it's the best source for printer systems from 200 to 2,000 Ipm. 
Printer systems that are guaranteed compatible with your computer. 
Printers that are serviced by SSI specialists nationwide. Printers 
that work for you at less cost than any other printer source can offer. 

Add-on a Southern Systems printer system and you add-on 
Southern Systems. Just ask our customers. 


Tell me about your printers from: 

□ 200-300 Ipm 
CD 600—900 Ipm 

□ 1000 plus Ipm 

My computer system is_ 

Name_ 

Title_ 



Southern Systems 

The Printer System Problem-Solvers. 

2841 Cypress Creek Road, Fort Lauderdale, Florida 33309 
(305) 979-1000; (800) 327-5602; Telex 522135 


Company___ 

Address_ 

City_State_Zip_ 

T elephone_CW 
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SOFTWARE 


SUBJECT: CALOUT 

NEED TO GET FILES 
ONTO SOME OTHER 
SYSTEM? 

OR BACK ONTO YOURS? 
BY TELEPHONE? 

FAST? 

SOME THINGS TO CONSIDER. 

Of the few utility packages available 
for this requirement there are some 
important differences. 

CALL ANY RSTS SYSTEM YOU 
LIKE. Some designs require that a 
copy of the communication package 
reside on each correspondent system. 
This means you pay the license cost 
again and again for each system in a 
defined network. Many users wish to 
link up with any system. The CAL- 
I OUT package is designed to support 
this requirement. Only your system 
requires the license. 

MOVE ANY KIND OF FILE AND 
THE ATTRIBUTES. RSTS files are 
always associated with special file 
attributes that are not part of the data 
itself. This information is often essen¬ 
tial to the use of the file. Some com¬ 
munication packages do not deal with 
it all. The CALOUT package automat¬ 
ically sets up the correct file attributes 
on the correspondent RSTS system. 
Virtually any file type can be 
transferred. 

ABOUT ERROR CHECKING 
AND CORRECTION. Standard 
telephone lines can insert bad data into 
a link. Some communication packages 
have no way of overcoming this prob¬ 
lem. The CALOUT package insures 
that each file is transferred correctly. 
This is done by automatic error detec¬ 
tion and correction. 


CONCERNING FILE TRANSFER 
SPEED. The speed for moving files 
is determined by three primary fac¬ 
tors. Dominant is the baud rate of the 
communication link. Normally, a com¬ 
munication package will transfer files 
between systems as fast as the hard¬ 
ware link will permit. Synchronous or 
asynchronous links may be used with 
the CALOUT package. A wide range 
of standard communication hardware 
from a variety of vendors is found to 
be suitable. Transfer speed will be lost 
if the link is bad and a lot of error cor¬ 
rection is required. Also, speed is lost 
if either system is heavily loaded and 
responding poorly. The CALOUT 
package is well optimized and uses 
very little system resource. 

ON BEING EASY AND CONVE¬ 
NIENT TO USE. The user interface 
can be quite awkward and clumsy to 
work through. This is true to varying 
degrees among the packages offered. 
The CALOUT package is designed to 
support even the casual user without 
reference to the user manual. This of 
course is when everything is going 
well. When problems occur with the 
hardware link, CALOUT provides 
extensive diagnostic information to 
guide hardware maintenance activi¬ 
ties. Protocals for logging and using a 
correspondent system can be invoked 
automatically from a table you define. 

TRANSFERRING SETS OF 
FILES. The CALOUT package pro¬ 
vides a wild card transfer request. With 
this feature many files may be auto¬ 
matically moved with a single request. 
It works much like PIP. 

ALSO, ON BEING A TIME 
SHARED USER. You may often wish 
to run a few tasks on the correspon¬ 
dent system. The CALOUT package 
will let you run tasks or move files as 
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you wish. You may pop back and forth 
between several powerful modes with 
simple control commands. 

ON NEEDING SOMEONE AT 
THE OTHER END. Watch out for 
this one. It can be quite inconvenient if 
you find that you must have someone 
at the correspondent system set your 
link up before you can transfer files. 
The CALOUT package requires no 
attention whatever at the other system 
site. Of course, they must have some 
standard dialup capability at their end. 

REGARDING LOCAL SYSTEMS. 
For systems that are physically near 
each other, the CALOUT package can 
be implemented without a telephone 
line or any special hardware beyond a 
standard cable linking the two or more 
systems. 

CALLING A NON-RSTS SYS¬ 
TEM. The CALOUT package will fully 
support links with RTll and VAX sys¬ 
tems. Other non-RSTS and non-DEC 
systems are supported for text file 
transfers. 

ABOUT THE TWX LINKS. The 

CALOUT package supports alternate 
dialup and direct TWX connection for 
fully automated use of the Western 
Union network. 



HOW TO GET MORE INFORMA¬ 
TION. Call Janet at (617) 275-6642, 
or write: Clyde Digital Systems, 
Inc., P.O. Box 348, Bedford, MA 
01730. 
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From the editors... 

NO! Carl Marbach 

NO! Only two letters long, but It 
sure packs a lot of negativity into a 
small space. The Word at the December 
Los Angeles DECUS meetings was: NO! 
DECUS is becoming one big NO and its 
catching on. Clerks and secretaries 
won’t say no if they think the boss will 
say yes; the NO-ism comes from the 
top. 

What NO'S? Some examples: Joyce 
Hayes. Steve Stepanik and Boyce 
Cargill gave a three part TECO tutorial 
(attended by over 125 people each ses¬ 
sion) that is the best, most professional 
tutorial 1 have seen presented at a 
DECUS meeting. NO handouts. When 1 
called to plead the case some time be¬ 
fore the December meeting 1 was told 
that since the session was not new (it 
had been presented before, and was 
back by popular demand) it did not 
meet the ’’new" requirements for hav¬ 
ing DECUS produce handouts, besides 
it would be in the proceedings. More: 
Pretty stiff airfares to attend DECUS 
for us Easterners, how about the pos¬ 
sibility of charter flights to Atlanta in 
the spring from the West and to L.A. 
next fall from New York or Boston? 
NO. Might be some liability for DECUS. 

1 belong to smaller organizations that 
offer charter flights for their mem¬ 
bers, but not DECUS. NO. Dan 
Esbensen from North County Com¬ 
puter Services has given sessions at 
several DECUS meetings and this was 
no exception with a presentation on 
optimizing strings in Basic. 1 happened 
to be in the DECUS office when Dan 
came in at 8:45 one morning looking 
for a marking pen to use on the 
overhead projector during his presen¬ 
tation scheduled for 9:00 A.M. "Can’t 
give you one (NO!) ", said one of the 
DECUS workers, “1 give them out and 1 
don’t get them back". "I’ll leave my 
briefcase", replied Dan, trying to get 
the needed marker. "NO ”. Lucky for us 
Dan persisted and finally got someone 
to give him the 98 cent marker. At 
least one request for a ”birds-of-a- 
feather" session wasn’t even given the 
courtesy of a reply: A silent (pocket- 
veto) NO. You might also have noticed 
that there were NO RSTS handouts. 
There is NO new TECO card, and the 
message board was cleverly stashed in¬ 


side the exhibit hall where it was ac¬ 
cessible only from 9-5 (NO. we can’t 
move it out). 

1 am a strong supporter of DECUS: 
Even now 1 am the TECO sub-SIG chair¬ 
man and will give no less than three 
sessions at the Spring meetings (New 
user, TECO Macros, and How to get the 
most out of Version 7.1 or The Carl and 
Dave show revisited). The leadership of 
DECUS has got to change its perspec¬ 
tive to a more positive one. The mem¬ 
bers of DECUS are important, the most 
important thing DECUS has. This is a 
USER organization, decUs, to serve the 
USERS not to support itself. 

1 would like to hear more YES’s 
from DECUS. New members would feel 
more at home and old members might 
give a little more if they felt some 
positive feedback from the DECUS 
leadership. Why don’t we find more 
ways to say ’’YES". Stop running 
scared with all the NO’s. Grace Hopper 
once told a DECUS audience that she 
would come back to haunt anyone who 
said, "but, we have always done it that 
way”. 1 think Ms. Hopper would visit 
some of you who only know how to say 
NO. and can’t figure a way to say 
"YES”. 

DECUS might learn something 
from a story 1 like to tell of a time 1 was 
traveling in England after a United 
Kingdom DECUS Seminar. We spent 
the day driving and sightseeing and 
finally arrived at the Inn we were to 
spend the night at 5:30 P.M.. past the 
usual hour for Tea. We were tired and 
cold and hopefully asked, "are we too 
late for Tea", "you are never too late 
for Tea", they replied. "Where can we 
have Tea", we asked. "Anywhere you 
like", was the answer. 1 told my wife, 
"we’re going to like it here”. I was 
right. And we re going back. 

Dave Mallery will return in the next 
issue. 


We dedicate this issue to 
our friend. SIMON SZETO. 

Thanks for listening to us— 
over and over again. 

Good luck, Simon, what¬ 
ever you are working on ... 

Carl & Dave 
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DMG/NET provides RSTS/E 
users with easy access to packet- 
switched CX.25) networks. It 
permits two-way file transfer and 
interactive dialogue with other 
RSTS/E systems and locally initia¬ 
ted communication with non- 
RSTS/E systems. From a RSTS/E 
host to other RSTS/E computers, 
to other DEC computers, even to 
non-DEC computers.. .communi- 
cation is quick, simple and 
extremely inexpensive. 



No matter how large or how 
small your RSTS/E system is, 
DMG/NET can substantially re¬ 
duce communication costs by 
utilizing packet-switched (X.25) 
networks. With DMG/NET you can 
save up to 90% of your cost of 
communication, compared to 
“dial-up” or leased lines. 


EASYIBUSE 

Even a non-technical 
person can access the entire 
communication network quickly 
and easily with DMG/NET There 
is no need to memorize a long 
series of network codes, numbers 
and procedures. Instead, a user 
accesses a remote database with 
only the familiar local sign-on and 
a short, easily remembered identi¬ 
fication code...DMG/NET does 
the rest. 

What’s more, DMG/NET 
allows any locally connected ter¬ 
minal to access any specified 
remote database, eliminating the 
need for separate terminals, com¬ 
plicated switch boxes or terminal 
setting changes. 

To find out how DMG/NET 
can meet your RSTS/E network- 
ing needs, contact Digital 
Management Group Ltd. 


mm 

RSTS/E and DEC are registered trademarks of Digital Equipment Corporation 
DMG/NET IS a registered trademark of Digital Management Group Ltd 


Digital Management Group Ltd. 

f\ 1^-^ 4800 Yonge Street, Willowdale, Ontario, Canada M2N 6G5 
^ Telephone: (416) 225-7788 
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LETTERS to the RSTS Pro... 


Send letters to: Letters to the RSTS Pro. P.0, Box 
361. Ft. Washington. PA 19034-0361. 


We have just installed the enclosed function [see 
behw] on one of our 11 / 34’s. I do not recall seeing 
anything which performed a similar operation and 
I thought your readers might be interested. The 
function performs a sort on a file from within a 
running program by making use of a pseudo 
keyboard. 

We saw a need for this function because we try to 
let the various departments within the company do 
as much of their own processing as possible. So, 
not only do the departments perform their own 
data entry, they sort, post and pull reports as well. 
This lightens the load considerably for the D.P. 
department and it keeps any questions concerning 
their data where it belongs, in their own depart¬ 
ments. The sort function is incorporated easily into 
any program and it allows the user to select the 
kind of order he wants simply by answering a ques¬ 
tion within a program. Chaining is then possible 
between multiple programs and there is no user 
intervention required. We considered using batch 
jobs but the batch programs would be sitting on the 
system, taking up job slots and getting very little 
usage. In addition, any instructional messages or 
error messages from the running programs will be 
immediately apparent so that the appropriate 
action can be taken quickly. 

We enjoy the RSTS Pro magazine and we have 
learned a great deal from it. But, one subject that 
we have never seen addressed is how to gear pro¬ 
grams for the non-D.P. user. This is not quite as 
simple as it sounds. As the System Manager, I have 
to be constantly on the lookout to be sure that my 
programmers tailor their work for the user and not 
for themselves. Programmers seem to enjoy writ¬ 
ing programs that can do really ‘amazing’ things, 
but if the user doesn’t need those things or can’t use 
certain features then the programmer should not 
be incorporating them into a user oriented pro¬ 
gram. Experimentation is fine and should always 
be going on, but not at the expense of the user. The 
programs should be geared so that the user doesn’t 
have to answer too many questions or have to 
follow too many procedures but is still able to get 
everything he is looking for by himself. This is a 
very fine line, the programmer must understand 
that he has to tread carefully or he will fall into the 
trap of giving the user either too much or not 
enough. One thing that is very important is that the 
programmer learn to listen to exactly what the 
user/analyst is asking for. Then be able to extrapo¬ 
late what they have not asked for and give him that 
too, but without going so far as giving the user 
more than he knows what to do with. Many off the 
shelf packages offer much more than a typical user 
really needs but those packages have to be geared 
for any type of user. When a programmer is work¬ 
ing on an in-house program and is familiar with 
the people who will be using that program, he 
should gear the program towards those people. 
The program should be as intelligent as possible 
and be able to make it’s own decisions without the 
user being aware of what is taking place. The user 
should be presented with concise, understandable 
questions and not have to refer to either an opera¬ 
tions manual or to the Computer Room staff for 
help. Conversly, the user should not be presented 
with myriads of information about the program 
and how to answer the questions because the user 
doesn’t need all that information. This is our basic 
philosophy on tailoring programs for the user. 1 
could go on, but I believe you see what I am trying 
to get at by now. 


Thank you for letting me vent my feelings and I 
hope you will address this topic in more detail in 
future issues as more and more D.P. shops are 
beginning to take our approach of letting the end 
user do their own data processing. 

Kenneth Clark, D.P. Manager 
The Wilkes-Barre Times Leader, Wilkes-Barre, Pa. 
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IPkOGRAM NAMr; PKSOPT 

AUTHOR; HtLLlAM B. LANDREUX 
INSTALLATION: kILXES-BARRE TINES LEADER 
VERSION: 1 

DATE: N0VEN8ER 3, 1961 


PROGI - ACCOUNT PROCNANMER N 


RETURNED VALUES 


EXAMPLE! S%»rM«RT%I 1 %. 7» ,*SUR2<5.CMD*) 
ON ERROR GOTO 1000: 

IP S% THEN 2000 


THE ABOVE WILL LOG A PSEUDO XEYBOARD INTO ACCOUNT |1,7] AND 
PERPORH THE SORT SPCCIPIED BY THE INDIRECT CONMAND PILE *SUB2AS.CND*. 
IP 5« HAS A VALUE, ERROR CHECKING NAY COMMENCE AT LINE 2000 


UuOO Dtr PNSRT«(PflOC%,PNOJ«,lCMD$l ; 

ON ERROR GOTO IB900: 

ICNDS-ICMDS**/!*: 

SV%-0% tPULL THE VARIABLES 


OPEN •PK**NUN1S(L%)AS PILE 112%: 
FIELD 612%, 126% AS PXBUPS: 

LSET PRBUPS«8TRINCS(126%,0»): 

GOTO 16040 


IPIND 


UU40 Y$*SYS(CNRI(6%) KTHRSIUKI ♦STRI NG$ (4t, 0%) • 

CHR61PROJI) ♦CNR$ (PROG6} ♦STRI NC$ (201,0%)) : 
PSWDf-RA06(SWAP%(CVT$%(NI0<Y$,9%,2l) ) )) ♦ 
RAD$(SWAP%(CVTS6(MI0(Y6,11I,2I)1) 1 


iNuiO 


PUR 


L%«U TO 41: 


OH L% GOTO 1B0«2. 16064. 


16066 


1B062 MS$«*HELLO * ♦NUMlS (PIIOv«%) ♦ */*«NUHl$ (PROJI) ; *«P8lfO$«CHRI (13%) : GOTO UU70 
16064 NS$-*PS-^CNR$(n%) : GOTO 16070 

l«u66 NS$«1CMDS^CHR$(U%) : GOTO 16070 
16066 NSS-*BYe/P*«CNR$(n%) 


1«U70 CNT%»LEN(HS$): 

LSET PRBUP$*NS$4**r 

PUT tl2%. RECORD 91. COUNT CNT« 


Uu60 GET tl2%: 

NON««IN8TR(lt.PRBUPS.*NON-EXIST*): 

IP NON% THEN SV%*66«: 

GOTO 18990 (SEARCH NON>EXlST CND*S 


16U90 eR%-INCTR(J6.PRBUPS.*BRflOR*l * 

IP ERI THEN P80RT.ERRS«H|D(PRBUP$.ER%.66)«**: 

SV«-20«t GOTO 16990 IPSORT ERROR CONDITIONS 


16095 ER%-INSTR(1%.P*BUP$,*7*): 

IP ERI THEN P8ORT.ERR$*NlD(PfBUP6.ER%.)0l)«*‘: 

SV%*2ul: GOTO 16990 IPSORT NANAGMENT VIOLATION 


16100 

I6i02 


PUT fl2l, RECORD 61 


ALL CMOS 6 CHK RESULTS 


16900 IP ERR-6 AND ERL*16020 THEN RESUME 160)0 
ELSE IP ERR*5 AND ERL-16040 THEN SV%-5I: 

RESUME 16990 

16910 Ir ERR-ll AND ERL-16060 THEN RESUME 

ELSE IP CRL-IOIOO THEN IP ERR-S OR ERR-26 THEN RESUME 16102 
ELSE IP ERR-) THEN SLEEP 2: RESUME 
16920 S«%-90lt SVEI-ERR: SVLt-CRL: RESUME 16990 




! I : l t ! CND or PSUEOO 




32767 END 

! EEEEEEEerr.ERi.FP 


Thanks, Kenneth. We agree with your philosophy 
and will try to get an article on the subject. 


I am writing to alert RM02 RM03 sites to a 
possible problem. It is called non-computer person¬ 
nel knocking the drive(s) offline. 

I first encountered this problem when our new 
line printer was installed next to the RM03s. Users 
would pick up their output and proceed to use the 
drives as TABLES to sort through the listings. 
Now, we RM03 users know it doesn’t take much 
pressure to push the START button off and I 
learned in short order this was a problem. It hap¬ 
pened 5 times in one week, last time by my own 
hand(?). 

I, however, developed a solution. It is a piece of 
fiberglass, 5" by 3", held over the opening by three 
strips of strong scotch tape. This can be flipped up 
on top of the drive when powering up or down and 
when changing disks. 

Granted, this may not be an ideal solution, but it 
allows the users to get their listings and permits 
MA bell to service her PBX system, housed in the 
same room, without my hair falling out from 
worry. 

I hope someone benefits from this. Keep up the 
good work. This magazine is the greatest thing 
since RSTS. 

Mark Ruggiero, Arlington, MA 
P.S. Is it possible to buy a lifetime subscription? 


Thanks for the tip, Mark. As far as the lifetime 
subscription goes — thanks for the compliment 
and we're enthused enough to think about it as 
a possibility! 

I would like to express my appreciation for intro¬ 
duction of a series on ‘Have You Stolen Any Good 
Software LatelyT in RSTS Professional. 

I would like to read about the software tech¬ 
niques that could be incorporated in the software 
products to effectively counter this menace. It will 
be interesting to know about both simple and less 
costly as well as complex, sophisticated and more 
costly techniques for appropriate use with 
low/ high cost software products. 

May I make a personal request to you? We will 
like you to mail to us some references of books ar¬ 
ticles that may have been published in connection 
with this topic. 

The thought of receiving RSTS Professional 
every alternate month is really pleasing. How 
thoughtful of you to have given the New Year gift 
for 1982 in advance! 

Thanks for a great magazine. 

Girish Shah, Marketing Manager, 
Hinditron Computer Systems & 
Consultants Pvt. Ltd., Eros Bldg., 
42, Maharshi Karve Road, Churchgate, 
Bombay 400 020 
Thank you, Girish, for your interest. We are very 
excited about offering the ‘'RSTS PRO." bi¬ 
monthly. We’ll try to help you with the information 
you requested. Readers, how about it?? 

DR. JOEL SCHWARTZ 

To the Doc: I read your short article in a back issue 
[RSTS Professional, Vol. 3, No. 2, p. 7(5], so this 
reply may be a little late. You asked for help with 
DUNGEON; however, the game you seemed to be 
playing in the article was ADVENTure. A different 
animal altogether. After three years of on and off 
work, I have succeeded in playing perfect games of 
both. (I am proud to say that I have even con¬ 
quered the infamous endgame of DUNGEON). I 
have maps of both games including the various 
“unmappable” regions like the forests and mazes, 
so I might be able to help. (I also have hard copies 
of my “perfect” sessions if you need precise details.) 
Tell me which one you are exploring and I’ll be glad 
to lend a hand. 

In return, I ask one small favour: where or who 
has an up-to-date version of both of these games? 
The system I manage has neither and I would like 
to get them if possible. Who should I contact? 

One last point. A friend of mine tells me that you 
are going to print a map of DUNGEON or 
ADVENT in the next issue [Vol. 3, No. 4\ 1 
strongly disapprove of that. 1 know this sounds 
very arrogant coming from one who has finished 
them, but while I was working at them I desper¬ 
ately wanted a map and in retrospect I know that if 
I had obtained one it would have ruined the game. 
Not half but ALL the fun in that game is figuring 
out—even if it means eight-hour marathon sessions 
with dozens of restored games after weeks of 
sleepless nights. It’s worth it. Honest. I realize 
this admonition will likely go unheeded but I had 
to say it. 

Good luck with whichever one you are playing. 

John Partridge, Princeton, NJ 
Well John, we haven’t reached the Doc for com¬ 
ment yet, hut we do feel that he would make out 
better if he knew which game he was working on. 
Now then, concerning the map, as you probably 
know by now you are too late to stop the presses 
for DUNGEON, however, we may consider 
taking a poll before we print future "solutions’’. 
Thanks for the suggestion. 

.. . cx>ntinued on |>age 78 
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Telephone Costs Rival Data Processing Costs? 

Software Available to Manage Telephone Costs 

By Traudi Tissler. Communications Analysis Corp. 


To many of you this may not be a surprise. But if it is, 
maybe you should consider this. Especially if you belong to 
the group of managers who have found it necessary to give 
this issue of telecommunications costs a low priority in the 
past. Take for example the case of a local Boston-based Uni¬ 
versity. It meant $67,000 in annual savings to the Univer¬ 
sity. The telecommunications manager was in the process of 
looking at new telephone switches to replace an older piece 
of equipment. Rather than sort through mounds of 
telephone bills close to the tune of 11.000 call records 
monthly, he sought a teleprocessing service bureau to do the 
job. Within a week, and for less than $1,000, he was pre¬ 
sented with a reconfiguration of his voice network which 
would conservatively save $67,000. Conservatively, since 
the study was based on an off-peak summer month. 

Your telephone system may serve more employees 
than the 1000 lines at this University in Boston, but your 
savings may be as astounding even if your company has a 
smaller telephone system, in the range of 50 to 75 lines. 


IN-HOUSE PROCESSING 

Up until recently, the customary route to accomplish 
CDR/SMDR analysis has been to send the call-data to a tele¬ 
processing bureau. Yet, today many of the large users are 
turning to in-house processing. Complete software packages 
are available in the neighborhood of $18,000 and up. 
Although a company may wish to process in-house, the 
packages are not generally developed in-house. The more re¬ 
liable teleprocessing companies have the experience and ex¬ 
pertise and will custorh-tailor a package for you. 


WHAT IS TELEPROCESSING? 

First, one may ask “What exactly is a teleprocessing 
service bureau?” Teleprocessing service bureaus came into 
existence about 10 years ago; about the same time so many 
other industries were putting data processing power to use. 
These entrepeneurs recognized a void. There existed a need 
for a reporting system to control, manage, and analyze tele¬ 
phone use and costs. Until the early 1970’s. the local Bell 
System operating company was the most logical, if not only, 
place to turn to for an answer. Yet, the Bell System as an 
answer poses several limitations and drawbacks: 

1. Bell System limited the number of studies it would 
do. therefore you could not monitor PBX traffic ac¬ 
tivity on a periodic monthly basis. 

2. You could not pay for a study or additional studies 
even if you wanted to make it attractive for Bell to 
respond to your request. 

3. You might have to wait a couple of months, if not 
longer, for the information. 


4. The studies were not a routine matter, so snags 
could easily arise. 

5. Some information that would be helpful was not 
available. 

6. Bell offered no equipment which would allow you to 
do this job yourself. 

7. Bell would not recommend the new special common 
carriers who offer reduced costs for long distance 
calls. 

Now, back to the entrepeneurs. Before the telephone 
call records could be processed, this data had to be collected 
from the telephone switch or PBX (Private Branch Ex¬ 
change). Basically, a PBX is a switching unit located in the 
office building allowing calls within the building to be 
switched or transferred through this unit, rather than 
through the Bell System Central offices, as was the case 
with older switches. In addition, the PBX offers significant 
features, such as the ability to confer with a third party, 
answer a ringing phone from any phone across the room, 
redirect calls to another extension when you are unavailable. 

So it was off this PBX that each and every call was to 
be recorded. A collection device was manufactured and at¬ 
tached to the RS232 port off the PBX, and data collection 
began. At the end of the month, the mag-tape, floppy disc, 
cassette, cartridge, etc. was ready to be processed. And this 
process became known as CDR/SMDR processing to the 
telephone industry and its customers. 


CDR/SMDR PROCESSING 

In its early stages, CALL DETAIL RECORDS/STATION 
MESSAGE DETAIL RECORDS processing was an expensive in¬ 
vestment. both expertise and dollar wise for end-user, in- 
house processing. So teleprocessing service bureaus grew. 
On a monthly basis, the service bureau, combining the ex¬ 
pertise of data processing with telecommunications, re¬ 
ceived the data and turned a report back to the client. 


THE MANAGEMENT TOOL 

The reports fall into two broad categories: telephone 
usage information and trunk/traffic utilization. And to the 
manager armed with this information, it means significant 
savings. 

The telephone-usage information is built on a pyramid¬ 
like scale. Activity is first summarized on a per-user basis 
(see Diagram A). This information will show exactly who 
called, where, when and for how long. Also, these reports 
show how the call was placed, how often. 

The more sophisticated programs compare the actual 
route chosen to complete the call and compare it to the most 
cost-effective route, highlighting in dollar figures what re- 
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routing would mean in savings to you. You will even get an 
indication of employees productivity since non-business 
calls, such as “DIAL-A-JOKE,” "WEATHER,” and other per¬ 
sonal calls can be identified. A manager will also have the 
ability to generate a report for excessively long calls, 
whereby he sets parameters for length of call or number of 
calls to be identified. 

The hierarchial scheme then summarizes activity 
within the department, allowing a manager to compare call¬ 
ing patterns and activity within the group. (Diagram B) This 
is available on additional levels, such as district and division, 
up to the company or corporate level. (Diagram C) 

Before moving on to the topic of trunk/traffic utiliza¬ 


tion. one should note that the departmental report can be 
used for cost-allocation purposes. One of the woes of tele¬ 
communications managers is that this department operates 
in the red. Cost-allocation will not only allow them to recover 
actual costs for phone calls, but recover other overhead ex¬ 
penses, including amoritization of the PBX, cost of tele¬ 
phone lines and set. and salary of PBX operators. 

Similarly, certain industries will not have access to in¬ 
formation so that clients can be billed for calls made on their 
behalf. An excellent application is the law market. An ac¬ 
count code system is developed so that prior to each call, a 
lawyer punches a unique I.D. code. When the call data is proc¬ 
essed, this information is readily available to be put on the 
client’s next statement. It’s as simple 
as that! (Diagram D) 


FDP-U>ViUC^iisers.. 
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VOICE NETWORK ANALYSIS 

To address the issue of trunk/ 
traffic utilization, the processed 
reports will provide information on ac¬ 
tual use of private lines, FX (Foreign 
Exchange), WATS (Wide Area Tele¬ 
phone Service), and local lines. Al¬ 
though it is generally known that long 
distance calls are the most expensive 
type of call, some companies do not 
seem to have the expertise available to 
them to take full advantage of less- 
expensive services. The report package 
available through the teleprocessors 
provides this information in an easy to 
read format for the nontechnical man¬ 
agers. as well as enough detail for the 
manager with traffic engineering ex¬ 
pertise. 


WHAT IS WATS? 

Often when a company installs 
WATS lines, the correct combination of 
lines and service areas is not used or 
the need changes over time. Diagram E 
shows that 12,400 minutes of WATS 
calls were placed over a Band 5 line, 
which serves the entire U.S. calling 
area. However, this use is not cost-jus¬ 
tified. Only 2300 odd minutes were ac¬ 
tually placed to cities served in Band 5. 
The bulk of calls, 26.8%, were placed 
to areas served by Band 3. This is only 
one part of the revised configuration, 
and results in a saving of $5400. (Dia¬ 
gram E) 

Another misnomer is that WATS 
calls are "FREE.” It is not even true to 
say that WATS calls are always less ex¬ 
pensive. When an analysis of telephone 
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calls is made, it is not surprising to find calls being made 
over WATS lines to towns no more than 2 or 3 miles away. 
Although the figure may vary depending on your location, it 
is generally less expensive to piace a long distance call over 
local lines to areas as far away as 25 to 40 miles, rather than 
use your WATS line. This played a significant role in the 
$15,000 annual savings of a 70 line PBX used by a New 
England bank. This poses the interesting issue to managers 
of training employees to use the correct type of line. The 
easiest solution is to program the PBX with ARS (Automatic 
Route Selection). 

TRAFFIC ANALYSIS CONTINUED 

Trunk reports will also show the volume of traffic go¬ 
ing out and in some cases, being received by each line. This 
information can indicate the need for addition or deletion of 
lines in addition to problems on the line where insufficient 
traffic is noted. A quick mention of FX potentials should be 
made here, since this may now be the most cost-effective 
method to handle traffic where a significant volume is 
placed to the same locale. A sort is usually included in the 
report package which shows area code and exchange (i.e. 
212-246-XXXX) listings with the number of calls completed 
and the number of minutes. 

Information is available, some in graph form, to iden¬ 
tify the peak calling period, so that one can determine if 
your trunks are engineered for expected grade of service or 
line availability. Remember, the analysis of only trunk traf¬ 
fic for the Boston-based University resulted in a savings of 
$67,000 annually. This does not take into account the sav¬ 
ings that will be realized when non-business calls are re¬ 
duced. Just the knowledge that a record of phone calls 
placed by an individual is available is incentive enough to 
minimize abuse of this company benefit. 


THE “MOSTE” FOR YOUR TELEPHONE SYSTEM 

Communications Analysis Corp. has developed a soft¬ 
ware package. MOSTE, to be used for the control and 
management of the telephone systems and its costs. MOSTE 
is proprietary licensed software which will provide compre¬ 
hensive telecommunications management reports that 
record and summarize calls made from your telephone 
switch. 

MOSTE (Management of Systems Telephone Expenses) Is 
IBM compatible and another version will be ready to use for 
DEC equipment. The software package is fully documented 
and Is supported by source code for reports. Performance 
critical portions are implemented In assembly language, and 
reports are processed using COBOL. MOSTE provides data 
security, flexible on-line inquiry, and complete report- 
program generation. Documentation includes detailed in¬ 
structions for installation, codebook for text data files, and 
a comprehensive user's guide. Communications Analysis 
Corp. will provide on-going maintenance and support of this 
package to reflect any rate, tariff, and telephone central of¬ 
fice changes. The package is ideal for OEM or end-user. 
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ON-SITE PROCESSING 

In addition to in-house processing, companies now 
enhance the PBX with a seif-contained SMDR/CDR process¬ 
ing unit. Therefore, a manager could have available to him 
on an almost immediate basis, a listing of the most recently 
placed calls. It should be pointed out, however, that these 
systems generally do not have the capability to store data 
for long periods, so the in-depth analysis that is available 
after a monthly run through a teleprocessing in-house pro¬ 
gram is lacking with the self-contained processor. 

A WORD TO THE WISE 

Generally speaking, the call traffic for a company is 
consistent from month to month. However, certain indus¬ 
tries are effected by seasonal variations, such as airlines and 
universities. So it is always a good idea to look at traffic pat¬ 
terns for a couple of months before actually reconfiguring 


your trunks. Once you do pursue the area of telephone costs 
management and control, speak with several companies: 
this business is a competitive one and some companies offer 
excellent rates with a good staff of experienced data proc¬ 
essing and telecommunications staff employees. Then, keep 
in close touch with your representative from the 
teleprocessing company, and ask questions: usually, they 
will be more than happy to help you interpret your reports. 

TELEPHONE COSTS RIVAL DATA PROCESSING COSTS 

Back to our original question. This question remains for 
you to investigate. As with almost any industry, telephone 
costs are affected by inflation and spiralling costs. It may be 
true that the percentage increase in phone costs has risen 
slower than for other services and products, but this is not 
reason to overlook the management control which can be 
exercised over telephone usage and costs by you. And today, 
the software is available to do the job. 


COMMUNICATIONS ANALYSIS CORP 
USAGE CONTROL SYSTEM 
FOR 

*-SAMPLE COMPANY-* 


ACCOUNT CODE J?EPOJ?T 


DATE 



START 

TIME 

AC 

NUMBER CALLED 
AREA EXT-LINE 

DESTINATION 

CUSTOMER CODE 100 

. MINS COST LCR 

LOST 

SVGS 

SVGS 

vs 

L.D. CALLED NUMBER I.D. 

ACCT 

EXTN 

CAC 

USE 

ONLY 

FRI 

23 

JAN81 

15:35 

66 

312-329-5500 

CHICAGO 

IL 

3.1 

1.10 

0.00 

0.00 

2000 

1493 

5 

FRI 

30 

JAN81 

16:02 

67 

812-636-8764 

GREENSBURG 

IN 

3.7 

1.31 

0.00 

0.00 

2000 

1494 

5 

WED 

4 FE381 

14: 40 

66 

513-866-6521 

MBG W CRTN 

OH 

13.2 

4.69 

0.00 

0.00 

2000 

1 493 

5 

MON 

9 FEB81 

15:07 

66 

513-866-6521 

MBG W CRTN 

OH 

7.6 

2.70 

0.00 

0.00 

2000 

1493 

5 

FRI 

13 

FEB81 

10:34 

67 

513-273-3800 

CINCINNATI 

OH 

.7 

0.25 

0.00 

0.00 

2000 

1493 

5 

FRI 

13 

FEB81 

12: 57 

66 

513-866-6521 

MBG W CRTN 

OH 

1 .3 

0.46 

0.00 

0.00 

2000 

1493 

5 

FRI 

13 

FBB81 

13:19 

67 

213-573-2332 

COMPTON 

CA 

. 9 

0.32 

0.00 

0.00 

2000 

1493 

5 

FRI 

1^ 

FEB81 

13: 51 

67 

213-573-2332 

COMPTON 

CA 

1.1 

0.39 

0.00 

0.00 

2000 

1493 

5 

TUE 

17 

FEB 81 

15: 58 

66 

213-573-2332 

COMPTON 

CA 

1.2 

0.43 

0.00 

0.00 

2000 

1493 

5 

TUE 

17 

FEB81 

16:40 

67 

213-573-2332 

COMPTON 

CA 

1.4 

0.50 

0.00 

0.00 

2000 

14 93 

5 

WED 

18 

FEB81 

10: 48 

66 

213-573-2332 

COMPTON 

CA 

3.8 

1.35 

0.00 

0.00 

2000 

1493 

5 

THU 

19 

FEB81 

09:21 

66 

513-866-6521 

MBG W CRTN 

OH 

2.9 

1.03 

0.00 

0.00 

2000 

1493 

5 

THU 

19 

FEB81 

13:26 

66 

513-866-6521 

MBG W CRTN 

OH 

1.8 

0.64 

0.00 

0.00 

2000 

1493 

5 

THU 

19 

FEB81 

13: 40 

66 

513-866-6521 

MBG W CRTN 

OH 

.9 

0 .32 

0.00 

0.00 

2000 

1493 

5 

THU 

19 

FEB81 

14: 28 

66 

513-866-6521 

MBG W CRTN 

OH 

4.7 

1.67 

0.00 

0.00 

2000 

1493 

5 

FRI 

20 

FEB81 

08: 41 

67 

513-273-3800 

CINCINNATI 

OH 

2.3 

0.82 

0.00 

0.00 

2000 

1493 

5 


////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 
*SUB TOT* -X XX X 50.617.98 

•PLEASE NOTE: This report Is not included as part of the standard report package, but is available upon request. 


COMMUNICATIONS ANALYSIS CORP 
USAGE CONTROL SYSTEM 
FOE 

*-SAMPLE COMPANY-* 


ACCOUNT CODE SUMMARY 


ACCOUNT CODE SUMMARY REPORT 


ACCOUNT CODE NUMBER OF CALLS TOTAL MINUTES TOTAL COST 


0 

J24 

001 

56 

165.2 

S 

47.97 

1 

324 

001 

7 

28.1 

$ 

5.60 

1 

324 

190 

12 

41.4 

s 

10.06 

1 

324 

9 99 

16 

48.9 

$ 

12.27 






s 

75.90 

0 

446 

001 

21 

59.2 

s 

18.17 

0 

446 

999 

4 

12.0 

s 

2.57 

1 

4 46 

001 

7 

36.5 

s 

7.22 

1 

446 

070 

36 

99.9 

$ 

20.17 

1 

446 

o35 

1 

4.6 

s 

.23 

1 

4 4 6 

999 

11 

43.3 

$ 

8.87 






$ 

57.23 

0 

78 7 

001 

6 

19.8 

s 

4.07 

0 

787 

002 

1 

3.8 

s 

. 36 

1 

78 7 

001 

9 

37.3 

s 

8.46 

1 

787 

0 99 

2 

17.1 

3 

5.55 

1 

787 

999 

13 

39.9 

S 

7.20 






3 

25.64 

0 

922 

001 

1 

5.4 

3 

. 81 

0 

922 

999 

4 

17.7 

3 

3.98 

1 

922 

001 

3 

8.1 

3 

1.35 

1 

922 

500 

36 

141.0 

3 

35.35 

1 

922 

999 

21 

69.0 

3 

18.57 


$ 60.06 
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increments. Available with internal 
parity generation and checking and 
CSR registers. 


PINCOMM 780S 

A direct replacement for DEC MS780Dx 
memory. Trendata D780S Memory 
Diagnostic available on Floppy Disk. 


PINCOMM 750S 

Replacement for DEC MS750Ax mem¬ 
ory. Offered in 256KB increments. 


All memories have socketed RAMs, on-board spare RAMs, on line/off line switch, LED indicators. 


★ NEW — PINCOMM 23S 

256k-byte parity memory for 
DEC LSI-11/23 microcomputers- 
Extended Q-bus addressing 



On Site maintenance available in major Metropolitan areas 

FOR FULL DETAILS CALL TODAY 


TOLL FREE: 800-854-3792/IN CALIF: 800-432-7271 



■ STANDARD MEMORIES DIVISION 

o Trsfidaia 

CORPORATION 


Digital Equipment Corporation 
(DEC) and its model designators 
are recognized registered trademarks. 


3400 W. SEGERSTROM AVE. 
SANTA ANA, CALIFORNIA 92704 
(714) 540-3605/TWX 910-595-1596 
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FREQUENTLY CALLED NUMBERS 
HIGH USAGE CALLS REPORT 


RUN MONTH: APR 20 
COMPUTER RUN: 7-MAY-fll 


CALLED NUMBER 

IDENTIFICATION 

NO. OF CALLS 

312 

333 

1400 

# 

211 

617 

481 

.i640 

# 

196 

404 

748 

4450 

« 

188 

617 

852 

jOOO 

i 

183 

617 

839 

5821 

« 

167 

617 

757 

3295 

« 

141 

516 

466 

5310 

* 

125 

617 

8 52 

1000 

STATE MUTUAL 

113 

411 



« 

113 

617 

852 

5485 

« 

106 

617 

753 

1411 

WPI 

104 

617 

791 

2272 

WORC CTY INS SAVIN 

100 

617 

852 

0600 

FALLON CLINIC 

96 

617 

886 

6805 


88 

617 

852 

1050 

ADVANCED BEARING 

88 

61 7 

757 

76 59 

# 

81 

617 

752 

2876 

i 

79 

617 

791 

096 1 

i 

79 

617 

757 

8306 

FOUR SEASON.S TRAVE 

78 

216 

J41 

1700 

« 

72 

617 

791 

7861 

« 

72 

617 

829 

5401 

« 

70 

617 

791 

2251 

ff 

70 

617 

791 

3121 

• 

68 

617 

8j9 

5o00 

i 

65 

714 

546 

2090 

• 

63 

617 

757 

56 31 

« 

62 

401 

421 

4901 

« 

61 

617 

85J 

1000 

NORTON CO. 

60 

617 

755 

4321 

• 

60 

617 

8-i9 

5475 

» 

60 

617 

752 

1955 

* 

59 

617 

75 J 

72 2 5 

WASHBURN GARFIELD 

58 

213 

981 

3740 

# 

54 

617 

8j9 

5382 

• 

53 

617 

798 

8151 

« 

53 

617 

366 

8911 

DATA GENERAL 

52 

617 

839 

6911 

• 

52 

617 

757 

7751 

» 

52 

617 

832 

6511 

i 

50 

617 

485 

9263 

• 

49 

513 

271 

5100 

« 

47 

617 

791 

3657 

WEATHER 

45 

815 

725 

9500 

* 

37 

617 

756 

8311 

RM ELECTRONICS 

36 

617 

832 

5801 

* 

36 

617 

8 52 

4000 

SHERATON LINCOLN 

35 





TOTAL CALLS 

6164 



f + -f + + + -f+ + + + + 4 + -f + + + 4- + + -f + -»-4 + 


LOOKING FORWARO TO A NEW 
COMPUTER SYSTEM? 

Once your system arrives, how many months will it be until your operations really begin? 

After waiting for delivery, then you begin writing and testing software, converting data, training employees, etc. etc. But, during 
this time, your new computer system is technically idle, unlike your finance company who is still being paid! 

Or, you can use COMLINK and begin your data processing the day your system is installed. Instead of just waiting, you can spend 
your predelivery time writing and testing software packages, converting data, sampling new technologies, training employees etc. - all 
under actual working conditions. Then, when your system arrives, you simply transfer all of your data via disk or magnetic tape, and 
your up and running. 

COMLINK provides access to our PDF 11/70 (RSTS/E operating system) via 120 or 30 CPS telephone dialup for an hourly rate of 
$6.00 or monthly for $500.00. In addition, COMLINK users have access to a variety of printers, magtape drives, disk drives, and 
other sundry peripherals. A wide range of support and technical services are also available. 

DIGITAL TECHNOLOGIES COMPANY 

3322 La Cienega Place, Suite 200 
Los Angeles, CA 90016 
(213) 202-1122 

This offer is subject to change without notice. 
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one gem stands a cut 
above the rest. 


DATA BOSS is rapidly 
becoming the world’s most 
valuable data base management 
system. DATA BOSS captured 
Datapro’s highest rating in a user 
evaluation survey, scoring a 
perfect 4.0 mark in overall 
satisfaction. The reason is 
simplicity and reliability. 

The simplicity of DATA 
BOSS/2 and DATA BOSS/32 
systems saves you time and 
money. DATA BOSS operations 
can be learned within several 
hours by personnel without 
computer programming back¬ 
grounds. 


DATA BOSS can be 
implemented in a fraction of the 
time normally required for an 
application. Up to 90% of your 
coding time is eliminated, and fast 
retrieval down to the most minute 
detail can be accomplished. 



without time-consuming sorting 
or re-programming. 


DATA BOSS/2 and DATA 
BOSS/32 are available under 
RSTS/E and the VMS operating 
systems on Digital Equipment 
Corporation PDP-11 and VAX- 
11. Its valuable options include a 
Data Entry Subsystem (DES) and 
a Report Writer and Micro¬ 
graphics Management System 
(MMS). 

Explore the possibilities of 
joining over 100 worldwide users 
of DATA BOSS; Fortune 500 
corporations, hospitals, retail 
conglomerates, utilities, and 
dozens of other firms. 

Please write for our full catalog. 
If information is essential to your 
firm, this information will be 
essential to your success. 


Florkla Computer, Inc. 

99 N.W. 183rd Street, No. Miami, Florida 33169 (305) 652-1710 

Tiiinkcv 


Turnkey Software Limited, 12 High Street, Chalfont St. Giles, Bucks HP8 4QA, Telephone: 02407 5995/3410, Telex: 24224 ref:Tumkey 3003 
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2020 
19 96 
1952 
1919 
1885 
1851 
1P19 
1784 
1750 
1717 
1683 
1649 
1616 
1582 
1548 
1515 
1481 
1447 
1414 
IjflO 
1^46 
1313 
1279 
1245 
1212 
1178 
1144 
1111 
1077 
1043 
1010 
976 
942 
909 
875 
841 
808 
774 
740 
707 
673 
6j9 
606 
572 
5j8 
505 
471 
437 
404 
o70 
336 
jO J 
26 9 
235 
202 
168 
134 
101 


OUrOOIlS I'tiAr'FlJ 
DISTWiaUTION 


HOtil'i AXIS - lILIfA.ilf 
TIKE IK 15 MIN 
SEGMENTS 
VERTICAL AaIS - 

TOTAL MIlloTSS uSiD 
DUKINS MOWTd ON 
ALL FACILITIES 


CONNECT STAkS 
SEOUENTlAi-LY 
TO FhODUCE CU*^VE 


C.A.C. WATS RAND USAGE ANALYSIS FOE SAMPLE COMPANY 
PAGE# 1 ... 

mSTPIBUTION BY WATS BAND ACTUAL WENT L.D. BUT CUALIFIED WATS 

BAND COU»n’ MINS COST COUNT MIN3 COST COUNT MINS COST CCSf IF WATS 


7-MAY-ai 06:18 AM 
PUN MONTH: APE 20 

LOST 


0 

2.764 

736 

1.775 

332 

3J2 

0 

0 

0 

0 


0.0 

7.272.6 

1.832.7 
4.482.1 

819.1 

2.JJ7.2 

0.0 

0.0 

0.0 

0.0 


SO.00 
S2178.40 
S587.48 
S148J.87 
S284.09 
S822.89 
SO.00 
SO.00 
SO.00 
SO.00 


0 0.0 

1,664 4. IS.:.3 

0 0.0 
0 0.0 
O 0.0 

4,68j 12.400.4 

O 0.0 

0 0.0 
0 0.0 
4.566 9.105.3 


90.00 
S1239.o6 
90.00 
90.00 
30.00 
94367.89 
90.00 
90.00 
90.00 
91891.65 


0 0.0 ioToo' 

46 90.9 930.92 

13 29.8 912.95 

23 42.9 920.16 

4 10.3 93.54 

7 ^6.5 915.43 

0 0.0 90.00 

0 0.0 90.00 

O 0.0 90.00 

0 0.0 90.00 


“so.oo" 

927.23 

99.55 

914.20 

93.57 

912.85 

90.00 

90.00 

90.00 

90.00 


'soToo 

9^.6 9 

93.40 

9 5.96 

90.03- 

92.58 

90.00 

90.00 

90.00 

90.00 


0 6.439 16.743.7 95356.73 10,913 25.639.0 97498.90 


93 210.4 SBj.OO 967.41 915.59 


COST PER MIN (FLAT) 
BAND O 90.21 

BAND 1 90.30 

BAND 2 90.32 

BAND 3 S0.o3 

BAND 4 90.35 

BAND 5 S0.j5 

BAND 6 90.00 

BAND 7 90.21 

BAND 8 90.00 

BAND 9 90.21 


USAGE PERCENTAGE OF TOTAL WATS 


BAND (MINS) 
OPTIMAL ACT 
0.0» 

43.4^ 

10.9': 

26.8*t 

4. 9\ 

14.0\ 

0.0\ 

0 . 0 \ 

0.0\ 

0 . 0 % 


0 . 0 % 
16.1% 
0 . 0 % 
0 . 0 % 
0 . 0 % 
48.4% 
0 . 0 % 
0 . 0 % 
0 . 0 % 
35. 5% 


ALL CALLS 
3PTIMAL 
0 . 0 % 
10 . 8 % 
2.7% 
6.7% 
1 . 2 % 
j.5% 
0 . 0 % 
0 . 0 % 
0 . 0 % 
0 . 0 % 


{ M IN s ) 
ACTUAL 
C.0% 
6 . 2 % 
0 . 0 % 
0 . 0 % 
0 . 0 % 
18.5% 
0 . 0 % 
C.0% 
0 . 0 % 
13.6% 


CU.STOMER WATS STRUCTURE 
. .00040006 ... 


.00040008 ... 


.00040004 ... 


TOTAL CALLS INPUT TO PPOGPAM: 36298 
TOTAL USAGE MINS INPUT TO PROGRAM: 67166.4 


•-* PERCENTAGES OF 


WATS IN TOTAL CALL COUNT *•* 


OVERALL % OPTIMAL : 17.7% 

OVERALL % ACTUAL : 30.1% 

*■* PERCENTAGES OF WATS IN TOTAL MINUTES COUNT 


OVERALL % optimal : 24.9% 

OVERALL % ACTUAL : j8.2% 

CALL COUNT “• 

OVERALL % OPTIMAL : 17.7% 

OVERALL % ACTUAL : 30.1% 

••• PERCENTAGES OF WATS IN TOTAL MINUTES COUNT 


COMMUNICATIONS ANALYSIS CORP 
100 FOUNTAIN ST 
FRAMINGHAM. MASS 01701 
617-875-7300 


■ IN 
0 
4 
0 
0 
0 
8 
0 
0 
0 


SB 6 


OVERALL % OPTIMAL 
OVERALL % ACTUAL 


24.9% 

38.2% 
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RABBIT-4 FILE SECURITY 
GUNS DOWN DATA RUSTLERS 
ON RSTS/E SYSTEMS 


Do You Know Who The Pesky Varmints 
Reading Your Confidential Information Are? 

RABBIT-4 will help you track’m and catch’m, 
cause it has a proven record of performance. 
RABBIT-4 will let you: 

□ Log secured file accesses 

□ Signal OPSER of violations 

□ Roll-out the bandits 

□ Freeze system activities with 
6 levels of file security to keep your data safe 
and secure, RABBIT-4 will also: 

• Secure up to 64 data files 

• Provide 32 user descriptions plus wild cards 

• Restrict file access to specified programs 

• Identify intrusions and intruders 

• Recover automatically from system crashes 


SEE OUR TALENTED RABBITS AT THE ATLANTA DECUS MEETING 

and pick up a free Rabbit Executive Coloring Book Souvenir! 

We’ll have a hospitality suite where we’ll demonstrate 
Rabbit’s resourcefulness in 

* Performance Analysis * Job Accounting * Resource Accounting 
* Data Management * Financial Planning * File Security 

INC. 

RAXCO Inc., Suite 200, 6520 Powers Ferry Road, Atlanta, GA 30339 • (404) 955-2553 
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AJJEA CODE DISTEIBUTION ANALYSIS 


TOTAL IDENTIFIED DIALS 


SAMPLE COMPANY 

CHANGE 

COMPUTER RUN: 7-MAY-81 




CONDENSED 

BREAKDOWN BY 

NPA 

RUN MONTH: 

APR 

20 




RUN MONTH: 

7-MAY-a1 


BILLING MONTH: APR 20 

CALLED NUMBER 

IDENTIFICATION 

WO. 

OF CALLS 






617 

852 

1000 

STATE MUTUAL 


11.3 






617 

753 

1411 

WrI 


104 


NPA 

STAfE 

CALLS 

MINUTES 

617 

791 

2272 

WORC CTY INS SAVIN 


roo 






617 

8 52 

0600 

FALLON CLINIC 


96 


201 

NJ 

27 7 

1,806.00 

617 

852 

1050 

ADVANCED BEARING 


88 


202 

DC 

36 

162.00 

617 

757 

8-J06 

FOUR SEASONS TRAVE 


78 


20o 

CT 

UO 

664 .00 

617 

853 

1000 

NORTON CO. 


60 


207 

ME 

70 

487.00 

617 

75-< 

7225 

WASHBURN GARFIELD 


58 


212 

NY 

J74 

1,998.00 

617 

36 6 

891 1 

DATA GENERAL 


52 


213 

CA 

103 

704.00 

617 

791 

-3657 

WEATHER 


45 


214 

TX 

157 

910.00 

617 

756 

8311 

RM ELECTRONICS 


36 


215 

PA 

70 

446.00 

617 

8 52 

4000 

SHERATON LINCOLN 


S5 


216 

OH 

55 

464.00 

203 

623 

1621 

MASHKIN 


35 


303 

CO 

46 

210.00 

617 

798 

>56 1 

MECHANICS NT'L BAN 


o5 


j05 

FL 

9J 

568.00 




\ 




312 

IL 

298 

1,554.00 




\ 




Jlo 

MI 

90 

48J.00 




/ 




315 

NY 

41 

250.00 




/ 




j17 

IN 

49 

284.00 

617 

75.3 

4741 

DEAN WITTER 


.34 


401 

RI 

154 

919.00 

617 

791 

7146 

IBM 


30 


404 

GA 

170 

890.00 

617 

^23 

4200 

COOPERSLYBRAND 


28 


412 

PA 

52 

378.00 

617 

799 

4441 

PAUL REVERE INS 


28 


41o 

MA 

128 

957.00 

617 

791 

7811 

FRED WEISMANN 


28 


415 

CA 

241 

1,636 .00 

617 

935 

9736 

DIGITAL ECUIP CORP 


22 


416 

ONT 

178 

1.042.00 

ol7 

757 

56 5 1 

STIMPSON, G.B. CO. 


17 


501 

AR 

47 

292.00 

617 

791 

6 361 

TSG CLASSIFIED 


15 


51o 

OH 

67 

509 .00 

617 

799 

0571 

HOME FED SAVSLOAN 


14 


516 

NY 

111 

715.00 

617 

753 

2952 

KELLY SERVICES 


14 


518 

NY 

74 

457.00 

617 

752 

-:72 5 

KENMORE TRANSPORT 


1J 


60j 

NH 

517 

2,674.00 

617 

752 

3751 

WORC PUBLIC LIBRAR 


12 


612 

MN 

98 

527.00 

617 

777 

1900 

GTE SYLV 


12 


614 

OH 

j4 

151 .00 

617 

742 

5151 

CDM 


11 


615 

TN 

86 

562.00 

617 

8 5.3 

7000 

WORC CTY NAT'L BAN 


10 


616 

MI 

87 

824.00 

617 

936 

1234 

TIME 


10 


617 

MA 

1 4,818 

66,665.00 

617 

791 

-<86 1 

PEOPLES SAVINGS BA 


10 


70o 

VA 

59 

J92.00 

ol7 

76 2 

4 30 0 

FACT MUTUAL 


9 


704 

NC 

50 

348.00 

617 

8 79 

7200 

SHERATON TARATION 


9 


71j 

TX 

47 

262.00 

617 

358 

2721 

RAYTHEON 


8 


714 

CA 

83 

560.00 

617 

755 

86 11 

WORCESTER CLUB 


8 


715 

NI 

o5 

-<05.00 

617 

852 

6464 

CSR TIRE 


7 


716 

NY 

40 

215.00 

20.< 

889 

2.3.3 4 

AMER OFfICAL 


1 


717 

PA 

50 

->-<2.00 








802 

VT 

35 

132.00 








804 

VA 

42 

252.00 

IDENTIFIED DIALED 

NUMBERS 1686 




80 9 

PR 

432 

3,115.00 

UNIDENT 

DIALED 

NUMBERS 34518 




aij 

FL 

78 

417.00 

TOTAL 

DIALED 

NUMBERS J6204 




90 4 

FL 

36 

255.00 








914 

NY 

86 

-<15.00 

UKIi^UF 

DIALED 

NUMBERS 8,<66 




91 8 

Oh 

37 

210.00 

UNICUE 

IDENTIFIED 

128 




919 

NC 

57 

421.00 

UNICUE 1 

UNIDENTIFIED 82J7 




999 

TOTALS 

21.109 

105,537.00 

PERCENTAGE OF IDENTIFIED NUMBERS IN TOTAL 

COUNT 1 

I 4.66\ 


INCOMING CALLS BY EXTENSION 


SAMPLE COMPANY RUN MONTH: APR 20 


EXT 

NO.CALL.S 

MINS 

AVG.MINS 

AVG.RINGS 

UNANS.CALLS 

EXT •:n 

.uALLr 

MINS 

AVG.MINS 

1AVG.RINGS 

UNANS.CALLS 

202 

1 

0.20 

0.2 

0.0 

0 

.334 

3 

8 .JO 

2.8 

0.0 

0 

20.3 

1 

0.10 

0.1 

0.0 

0 

335 

1 

0.30 

0.3 

0.0 

2 

205 

6 

5.10 

0.9 

0.0 

0 

4 

4 

7.90 

2.0 

0.5 

0 

206 

1 

0.50 

0.5 

15.0 

0 

351 

4 

2.30 

0.6 

0.0 

0 

207 

1 

2.90 

2.9 

0.0 

1 

j6 0 

1 

0.30 

0.3 

0.0 

0 

209 

2 

0.50 

O.j 

0.0 

0 

361 

1 

6.10 

6.1 

0.0 

0 

210 

10 

31.90 

3.2 

0.1 

6 

.36 2 

2 

0.30 

0.2 

0.0 

0 

214 

2 

1 .00 

0.5 

0.5 

2 

367 

4 

5.10 

1.3 

0.0 

2 

215 

13 

IB. 90 

1.5 

0.3 

10 

j6 8 

27 

35.70 

1 .3 

0.0 

0 

216 

15 

j9.40 

2.6 

0.1 

0 

370 

4 

3.40 

0.9 

0.0 

0 

217 

14 

55.10 

3.9 

0.2 

0 

o7o 

32 

52.70 

1.6 

0.1 

27 

224 

15 

o2.40 

2.2 

0.2 

0 

37 4 

39 

126.30 

3.2 

0.1 

0 

226 

3 

5.70 

1.9 

0.0 

0 

j75 

7 

9.40 

1 .3 

0.0 

4 


\ 





376 

29 

58.00 

2.0 

0.1 

0 


\ 





J9.i 

1 

0.20 

0.2 

0.0 

0 


\ 





394 

2 

1.10 

0.6 

0.0 

0 

26 4 

1 

0.80 

0.8 

1.0 

2 

621 

1 

0.10 

0.1 

0.0 

0 

32 0 

7 

15.30 

2.2 

0.0 

0 







o27 

2 

0.60 

O.o 

0.0 

0 

TOT. CALLS* 


564 TOTAL 

MINS. 

1,079 


32B 

2 

3.50 

1.8 

0.0 

0 

AVG.MIN- 

1.91 





JoO 

2 

7.50 

3.8 

0.0 

0 

AVG.RINGS* 

4.88 





332 

9 

22.10 

2.5 

0.0 

2 

UNANSWERED CALLS* 1 

88 





SPECIAL OFFER 

MACHINE READABLE 800 BPI DOS LABEL OF MAJOR PROGRAMS IN THIS ISSUE 

Part of the proceeds will be going to the authors. 

Send 550 to: M SYSTEMS. INC. Box 361, Fort Washington. PA 19034-0361 
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EOHEW 

NEVERCONSIDERED 
EMUIEXONPRKL 


Consider the products and prices below: 

You'll soon see that Emulex is as unbeatable on price as we are in quality and perfor¬ 
mance. Included are two new Winchester disk controllers with remarkably high performance 
and reliability (MTBF over 70,000 hours). 

All Emulex Q-bus tape and disk controllers have the same microprocessor architecture 
and all the key features of our PDP-11 and VAX-11 products, including error correction, micro¬ 
diagnostics, and software transparency. Price our performance. Write or call: Emulex Corpo¬ 
ration, 2001 Deere Ave., Santa Ana, CA 92705; [714) 557-7580; TWX 910-595-2521. 


For immediate off-the-shelf delivery, call our national distributor: First Computer Corporation, 645 Blackhawk Dr. Westmont. IL 60559; (312) 920-1050 
In Europe: Emulex Corp . 10th floor. Cory House, High Street. Bracknell. Berkshire, England Telephone 0344 84234 Telex 851-849781 


SC01 (RM02/05. RP06) $2528* 


SC02 (RL01/02. RP02/03) $1600* SC04 (RL01/02) $1504* 

SC02 (RK06/07) $1792* SC04 (RK06/07) $1696* 


TC01 (NRZ) $1536* 
TC01 (PE) $1920* 






Put big SMD drives on your 
LSI-11. 

Links Q-bus with 1-2 SMD- 
type drives. Software transparent 
& media compatible with DEC 
RM02, RM05, RP06. Features 3- 
sector data buffer, 32-bit ECC. 
up to half a billion bytes capacity. 
Over 1500 units in service! 


Low cost for smaller-sized disks. 

Single quad-board inter¬ 
faces LSI-lls to 8" & 14" SMD 
hard disk drives. Same great 
SCOI-level performance in most 
applications. Software transpar¬ 
ent. Full 32-bit ECC. self-test, 512- 
word bootstrap, real-time clock 
control, and bus terminators. Mix 
and match drives on one con¬ 
troller. 72.000 hours MTBF! 


New! ANSI interfacing for 8" 
Winchesters. 

Supports up to 8 drives per 
single quad-board controller. 

Fits into any single LSI-11 back 
plane quad slot. Same design, 
performance, and high reliability 
as the SC02. 


Q-bus embedded dual-density 
tape controller. 

Handles all open-reel 
half-inch tapes-800/1600 bpi, 
operating at 12.5-75 ips. Com¬ 
patible with DEC’S TU10/TM11. 
Daisy-chain up to 4 drives. Firm¬ 
ware includes a self-test and 
extended diagnostics. Fully 
embedded. 


*Price each in 100 quantities. All Emulex 
disk, tape, and communications products 
can be combined to reach quantity price 
breaks 



EMULEX 


The genuine alternative 

CIRCLE 58 ON READER CARD 
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CHANGE 

CHANGE 


EXTENSION USEJ? ACTIVITY J?EPORT 


COMMUNICATIONS ANALYSIS CORP 
USAGE CONTROL SYSTEM 

SILLING number 617-555-J221 FOR 


EXTENSION number: 254 
user : —> DOE, JOHN 

COST CENTER ! ACCTS PAY 

START 

DATE TIME AC 

03-06155-02 

NUMBER CALLED 
AREA BXT-LINE 

DESTINATION 

- SAMPLE COMPANY — 
EXTENSION 254 

M INS COST 

LCR 

LOST 

SVGS 

SVGS 

VS 

L. D. 

BILLING MONTH: 
COMPUTER RUN: 

PAGE 

CALLED NUMBER I.D. 

APR 20 
7-MAY-81 Oil 
NUMBER: 1 

ACCT CODE 

:53 PM 

CAC 

USE 

aiLY 

++OUTGOING CALLS++ 













THU 

4 DEC80 

11:09 

0 

1-595-0410 

N0CH3LMSFD 

MA 

4 

0.46 


0.00 

0.00 



*-T 

THU 

4 DE80 

11: 17 

9 

1-312-594-2020 

SUMMIT 

IL 

16 

8.53 

5 

3.13 

0.00 



*-T 

THU 

4 DECBO 

12: 00 

9 

46O-7000 

BOSTON 

MA 

.6 

0.11 


0.00 

0.00 

AMERICAN A/L 



MON 

8 DEC80 

09: 56 

74 

658-5600 

WILMINGTON 

MA 

1 

0.30 


0.00 

0.00 



* 

MON 

8 DEC80 

10: 02 

9 

848-5227 

BRAINTREE 

MA 

9.6 

0.32 


0.00 

0.00 


04 10 

* 

MON 

8 DEC80 

14:05 

0 

965-6280 

NEWTON 

MA 

180 

3.78 


0.00 

0.00 

GE DATA PHONE 


* 

MON 

8 DEC80 

15: 14 

9 

1-312-594-2020 

SUMMIT 

IL 

1.1 

0.56 


0.35 

0.00 


1171 

*-T 

MON 

8 de:8o 

16:33 

9 

929-2146 

DORCHESTER 

MA 

1 

0.11 


0.00 

0.00 




WED 

10 DBC80 

10: 22 

89 

1-413-781-1990 

.SPRINGFLD 

MA 

2.2 

0.46 


0.00 

0.36 




WED 

10 DSC80 

10: 25 

9 

536-6230 

BOSTON 

MA 

. 9 

0.11 


0.00 

0.00 


2116 

* 

TUE 

16 DEC80 

10: 26 

9 

237-6600 

WELLESLEY 

MA 

14.8 

0.52 


0.00 

0.00 



* 

TUE 

16 D.ECPO 

10: 38 

9 

637-2176 

BOSTON 

MA 

1.3 

0.23 


0.00 

0.00 



* 

FRI 

19 DSC80 

15: 21 

85 

1-21-3-599-0202 

LOS .ANGELESCA 

15.2 

5.Si 


0.00 

3.26 

LA SALES OFC 


W5 

MON 

22 DEC 80 

11:25 

9 

1-212-688-1200 

NEW YORK 

NY 

.7 

0.46 

1 

0.26 

0.00 



*-T 

MON 

29 D3C80 

10: 27 

9 

843-7787 

BRA INTREE 

MA 

6.2 

0.21 


0.00 

0.00 



* 

MON 

29 DEC80 

17: 03 

9 

1-800-559-3455 

•-FREE WATS- 

* 

4.2 

0.00 


0.00 

0.00 


10 49 

*-T 


++ TOTALS 

FOR OUTGOING f+ NUMBER 16 



255.2 

S21.37 


53.74 

53.62 








AVERAGE- 


17.0 

51.42 








++ALLOCAriON++ 


USAGE 


LOCAL 

5 5.69 

9 CALLS 214.1 MINS 






NON-LOCAL 

15.68 

7 CALLS 40.7 MINS 






EQUIPMENT 

3.50 







OVERHEAD 

11.57 


++BEYOND- 

-LOCAL 

FACILITY USE++ 



FEDERAL EXCISE TAX 

0.43 







STATE AND LOCAL TAXES 0.00 


MASS 

WATS 9 

0 

1 

2.2 

TOTAL ALLOCATION TO 



BAND 

1 WATS 

0 

0 

0 

EXTENSION 254 

36 .87 


BAND 

5 WATS 

0 

1 

15.2 

[INCMNG CALLS]-> 135 

GALLS AT 

200.60 MINS AVG= 1.49 






[INCMNG WATS]—> 23 

CALLS AT 

57.40 MINS AVG= 2.50 COST 

516.45 






NOTE: INCOMING CALL DATA IS NOT AVAILABLE FROM ALL SWITCHES. 
IT WILL APPEAR AS SHOWN WHEN IT IS AVAILABLE. 


CHANGE 


SUMMARY OF EXTENSIONS BY DEPARTMENT 


COMMUNICATIONS ANALYSIS CORP 
USAGE CONTROL SYSTEM 

RILLING NUMBER:617-555-3221 FOR BILLING MONTH: APR 20 

SAMPLE COMPANY COMPUTER RUN: 7-MAY-81 

department: accts pay 

COST CENTER: 03-06155-02 DEPARTMENT TOTALS 


EXT. 

NO. 

LOCAL 

CALLS CO.ST 

DDD(TOLL) 
CALLS COST 

IDDD 

CALLS COST 

WATS 

CALLS 

COST 

FX-TL 

CALLS COST 

OTHER 

CALLS COfST 

USAGE 

CALLS 

TOTALS 

COST 

EQUIP 

COST 

OVRHD 

COST 

TOTAL 

COST 

254 

9 

5.69 

6 

10.01 

0 

0.00 

2 

5.67 

0 

0.00 

0 

0.00 

16 

21.37 

3.50 

11.57 

36.44 

282 

28 

2.61 

3 

0.00 

0 

0.00 

1 

0.49 

4 

0.45 

0 

0.00 

36 

3.55 

3.50 

11.57 

18.62 

32 2 

0 

0.00 

0 

0.00 

0 

0.00 

28 

49.43 

0 

0.00 

0 

0.00 

28 

49.4o 

3.50 

11.57 

64.50 

360 

12 

1.60 

0 

0.00 

0 

0.00 

0 

0.00 

0 

0.00 

0 

0.00 

12 

1.60 

14.21 

11.57 

27.38 

423 

53 

5.47 

1 

0.56 

0 

0.00 

5 

4.37 

3 

0.27 

0 

0.00 

62 

10.67 

3.50 

11.57 

25.74 

455 

0 

0.00 

0 

0.00 

0 

0.00 

1 

1.08 

0 

0.00 

0 

0.00 

. 1 

1.08 

7.65 

11.57 

20.30 

TOTALS 

101 

515.37 

10 

510.57 

0 

50.00 

37 561.04 

7 

6 . 72 

0 

50.00 

155 587.70 

535.86 

569.42 

5192.98 


TAXES 1.75 


TOTAL S194.73 


-•* DEPARTMENTS WITHIN THIS DIVISION: ACCTG ADMIN, ACCTS PAY, ACCTS REC, FINANCE 


TOTAL ACCOUNT NUMBER TELEPHONE COST : +-*■-*- S194.73 + + + 


LETTERS to the 
RSTS Pro_ 

... is your column! Send us your comments, suggestions, or notes of 
interest to the RSTS community. We'd enjoy hearing from you. 


LOOK at the "tear-ouf cards in this issue. 

There’s subscription cards for you or a friend. 

There’s a FREE gift for you. Bring in new subscribers and 
collect rewards. See “BOUNTY HUNTERS’’ card. 

There’s a READERS INQUIRY card for your convenience. 










* imoommiux 
we ccmmims!' 


"mYmmm! 

Hmf^ourpH,pz,oR 

pY-vimfvmmr 

mmMwwf/.- 



EXBM 
AN ABU 
COMMUNKAn 
WmiDEC 



We re also able to save you plenty: For instance, you get DH11 performance for a DZ11 
price. Four new space-saving single-board communications multiplexers. And an increase in 
VAX-11 terminal handling capacity by up to 50%. Maintained nationwide by Control Data. 

Microprocessor-based architecture and common hardware deliver faster, more flexible line¬ 
handling. Self-test on power-up. Full software transparency. And Emulex reliability standards. 

Communicate with Emulex now. Write or call Emulex Corp., 2001 Deere Ave., Santa Ana, 
CA 92705; (714) 577-7580, TWX 910-595-2521. 


For immediate off-the-shelf delivery, call our national distributor: First Computer Corporation. 645 Blackhawk Dr. Westmont. IL 60559; (312) 920-1050. 
In Europe Emulex Corp . 10th floor. Cory House. High Street. Bracknell. Berkshire. England Telephone 0344 84234; Telex 851-849781 


CS11/H (PDP-11) $7560 for 48 lines* CS11/V $4464 for 16 lines* CS21/Z $2520* 

CS11/U (VAX-11) $7884 for 48 lines* 


CS21/U (VAX-11) $2844 for 16 lines* 
CS21/H (PDP-11) $2520 for 16 lines* 



Up to 64 DH11 channels from 
one board. 

DH11-compatible MUX lets 
you mix RS-232 & current loop 
interfaces in 8-line groups. 
Built-in DM11-compatible modem 
control. DMA output eliminates 
host interrupts. Self-test capabili¬ 
ties. Transparent to PDP-11 soft¬ 
ware. Emulex’ own software on 
VAX. 


Higher DV11 performance, 
lower price. 

DV11-compatible multiplexer. 
Mixes 8-lines synchronous & 
asynchronous on PDP-lls. Ideal 
for Bisync & DECNET. 8-32 
lines per controller. DMA input & 
output. Software transparent 
under DECNET. Compact pack¬ 
ageoffering higher line-handling 
speeds & improved throughput. 


Replace DEC DZ11/E and 
save. 

Perfect if you don't need 
DH11 performance. Software- 
transparent to all DEC operat¬ 
ing systems. Easy PROM change 
enables quick upgrade to DH-11 
performance. Saves one slot 
per 16 lines. 



New economical DHII-type 
multiplexer. 

Lowest cost, high- 
performance communications 
MUX. Priced way less than DEC’S 
DZ11. with DMA to boot. 16 RS- 
232 lines per board, modem con¬ 
trol included. Can use H317 
distribution panel. Transparent 
to PDP-11 software; Emulex 
software on VAX. 


*Price each in 100 quantities. All Emulex 
disk, tape, and communications products 
can be combined to reach quantity price 
breaks 


EMULEX 

The genuine alternative 

CIRCLE 93 ON READER CARD 
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change 


* C.A.C. TfiUNK USAGE REPORT * 


•*-SAMPLE COMPANY- 


RUN MONTH: APR 20 
COMPUTER RUN: 7-MAY-81 


RUN MONTH: APR 20 


TOTAL MINUTES 


MEMB 

\Rr 0 

LOCAL 

1 

2 

FB5 

3 

MB5 

4 

FBI 

5 

MRl 

6 


FB9 

7 

MB9 

8 

9 

10 


11 

12 

13 

14 


1! 

0 

t 0 

0 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

1 

1 0 

2.6 

0 

2456.8 

163.7 3048. 

8 

694. 

1 

3617.1 

995.7 

0 

0 


0 

0 

0 

0 


0 

2 

1 0 

19.1 

0 

4361 

766.1 0 


1361 

.3 

0 


995.9 

0 

0 


0 

0 

0 

0 


0 


t 0 

84.4 

0 

0 

389.6 0 


616 . 

5 

0 


1913.2 

0 

0 


0 

0 

0 

0 


0 

4 

1 0 

16 .3 

0 

0 

968.1 0 


1461 

.4 

0 


1829.7 

0 

0 


0 

0 

0 

0 


0 

5 

1 0 

32.1 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

6 

1 0 

23.9 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

7 

t 0 

159.5 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

8 

1 0 

422.1 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

9 

1 0 

783.8 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

10 

1 0 

145.3 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

11 

1 0 

296.1 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

12 

t 0 

615.9 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

13 

1 0 

1332.1 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

14 

1 0 

2210.6 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

15 

^ 0 

1038.8 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

16 

1 0 

16 78 .6 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

17 

1 0 

2485.2 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

18 

h 0 

3632.8 

0 

0 

0 

0 


0 


0 


0 

0 

0 








19 

1 0 

3148.3 

0 

0 

0 

0 


0 


0 


0 

0 

0 

* 

COMMUNICATIONS 

ANALYSIS 

CORP 



20 

1 0 

4604.2 

0 

0 

0 

0 


0 


0 


0 

0 

0 

* 


100 FOUNTAIN ST 




21 

t 0 

5534.5 

0 

0 

0 

0 


0 


0 


0 

0 

0 

* 

FRAMINGHAM, 

MASS 01701 



22 

1 0 

6710.1 

0 

0 

0 

0 


0 


0 


0 

0 

0 

* 


617-875-7300 




23 

t 0 

6551.1 

0 

0 

0 

0 


0 


0 


0 

0 

0 








24 

1 0 

0 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

25 

1 0 

0 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

26 

1 0 

0 

0 

0 

0 

0 


0 


0 


.0 

0 

0 


0 

0 

0 

0 


0 

27 

1 0 

0 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

28 

1 0 

0 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

29 

t 0 

0 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

30 

1 0 

0 

0 

0 

0 

0 


0 


0 


0 

0 

0 


0 

0 

0 

0 


0 

TOTAL MINUTES— 

> 67166.4 




















OVERALL AVERAGE(TOTAL MINS/TOTAL CALLS) 

: 1 

.85047 

















0 0 





















TOTAL NUMBER OF 

CALLS-> 

36297 


















ACCOUNT CODE REPORT 


























COMMUNICATIONS ANALYSIS 

CORP 
















USAGE CONTROL SYSTEM 











BILLING NUMBER 

612-339-7833 






FOR 












CUST 

CODE number: 100 




•-SAMPLE 

COMPANY- 

* 




BILLING MONTH: 

APR 20 




USER 

- JOB CODE:200 




CUSTOMER CODE 

100 





COMPUTER RUN: 

07-MAY-81 

01:50 

PM 


COST 

CENTER:1 

100200 














PAGE 

NUMBER: 9 



















SVGS 






2 

AC 



START 

NUMBER CALLED 









LOST 

vs 






USE 

DATE 


TIME AC 


AREA EXT-LINE 

DESTINATION 


• 

MINS 

COST 

LCR 

SVGS 

L.D. 

CALLED 

NUMBER I. 

D. ACCT 

EXTN 

ONLY 

FRI 

23 JAN81 

15:35 66 


312-329-5500 


CHICAGO 

IL 


3 . 

1 

1.10 


0.00 

0.00 




2000 

149^ 

5 


FRI 

30 JAN81 

16:02 67 


812-636-8764 


GREENSBURG 

IN 


3. 

7 

1.31 


0.00 

0.00 




2000 

1494 

5 


WED 

4 FEB81 

14:40 66 


513-866-6521 


MBG W CRTN 

OH 

13. 

2 

4.69 


0.00 

0.00 




2000 

1493 

5 


MON 

9 FEB81 

15:07 66 


513-866-6521 


MBG W CRTN 

OH 


7. 

6 

2.70 


0.00 

0.00 




2000 

1493 

5 


FRI 

13 FBB81 

10:34 67 


513-273-3800 


CINCINNATI 

OH 


. 

7 

0.25 


0.00 

0.00 




2000 

1493 

5 


FRI 

13 FSB81 

12: 57 66 


513-866-6521 


MBG W CRTN 

OH 


1 . 

3 

0.46 


0.00 

0.00 




2000 

14 93 

5 


FRI 

13 FER81 

13:19 67 


213-573-2332 


COMPTON 

CA 



9 

0.32 


0.00 

0.00 




2000 

1493 

5 


FRI 

13 F.BB81 

13:51 67 


213-573-2332 


COMPTON 

CA 


1 . 

1 

0.39 


0.00 

0.00 




2000 

1493 

5 


TUE 

17 FBB81 

15:58 66 


213-573-2332 


COMPrON 

CA 


1 . 

2 

0.43 


0.00 

0.00 




2000 

149j 

5 


TUE 

17 FBB81 

16:40 67 


213-573-2332 


COMPTON 

CA 


1 . 

4 

0.50 


0.00 

0.00 




2000 

14 93 

5 


WED 

18 FSB81 

10:48 66 


213-573-2332 


COMPrON 

CA 


3 . 

8 

1 .35 


0.00 

0.00 




2000 

1493 

5 


THU 

19 FBB81 

09:21 66 


513-866-6521 


MBG W CRTN 

OH 


2. 

9 

1.03 


0.00 

0.00 




2000 

149j 

5 


THU 

19 FEB81 

13:26 66 


513-866-6521 


MBG W CRTN 

OH 


1 . 

8 

0.64 


0.00 

0.00 




2000 

1493 

5 


THU 

19 FEB81 

13: 40 66 


513-866-6521 


MBG W CRTN 

OH 



9 

0.32 


0.00 

0.00 




2000 

1 49 3 

5 


THU 

19 FBR81 

14:28 66 


513-866-6521 


MBG W CRTN 

OH 


4 . 

7 

1 .67 


0.00 

0.00 




2000 

1493 

5 


FRI 

20 FE381 

08:41 67 


513-273-3800 


CINCINNATI 

OH 


2. 

3 

0.82 


0.00 

0.00 




2000 

1493 

5 



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 
*SUR TOT* XXX X 50.6 17.98 


•PLEASE note: This report is not included as part of the standard report package, but is available upon request. 


A 

RSTS INTERNALS 
MANUAL 

BY MIKE MAYFIELD 


More than 200 pages in a binder. 

— PUBLISHED BY THE RSTS PROFESSIONAL — 

Price - $95.00 

SEND ORDERS TO: M SYSTEMS. INC.. BOX 361. FORT WASHINGTON. PA 19034-0361 
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SUMMAi?Y FOR COMPANY BY DEPARTMENTS 


COMMUNICATIONS ANALYSIS CORP 
USAGE CONTROL SYSTEM 


billing NUMBER:617-I 

departments: all 

Div. LOCAL 

NO. CALLS COST 

555-3221 

DDD(TOLL) 
CALLS COST 

IDDD 

CALLS COST 

FOR 

*—SAMPLE COMPANY-* 

COMPANY FINAL TOTALS 

WATS FX-TL OTHER 

CALLS COST CALLS COST CALLS COST 

USAGE 

CALLS 

TOTALS 

; COST 

BILLING MONTH: APR 80 

COMPUTER RUN: 7-MAY-81 

EQUIP OVRHD TOTAL 

COST COST COST 

110-01 

44 

5.09 

24 

42.64 

0 

0.00 

95 

57.03 

68 

9.45 

370 

0.00 

601 

114.21 

79.89 

80.99 

275.09 

ljO-05 

77 

9.17 

15 

16.25 

0 

0.00 

90 

52.59 

17 

2.18 

222 

0. 00 

421 

80.19 

216.97 

80.99 

378.96 

140-01 

30 

3.49 

18 

17.41 

0 

0.00 

66 

31 .63 

30 

3.91 

75 

0.00 

219 

56.44 

29.04 

80.99 

166.47 

155-02 

101 

15.37 

10 

10.57 

0 

0.00 

37 

61.04 

7 

0.72 

0 

0.00 

155 

87.70 

35.86 

69.42 

192.98 

160-01 

70 

8.10 

11 

9.52 

0 

0.00 

64 

36.44 

20 

2.20 

250 

0.00 

415 

56.26 

58.08 

80.99 

195..:.3 

170-20 

17 

1.97 

1 

0.41 

0 

0.00 

17 

8.17 

10 

1.20 

105 

0.00 

150 

11.75 

24.93 

23.14 

59.82 

223-01 

23 

1.42 

9 

12.17 

0 

0.00 

24 

13.18 

30 

3.82 

61 

0.00 

147 

30.59 

41.64 

J4.71 

106.94 

250-02 

37 

3.17 

75 

97.73 

0 

0.00 

1 99 

112.69 

34 

4.35 

244 

0.00 

589 

217.94 

148.40 

80.99 

1*47 .^,9 

260-01 

36 

4.77 

7 

8.15 

0 

0.00 

32 

13.27 

11 

1.21 

84 

0.00 

170 

27.40 

52.22 

34.71 

114.33 

JlO-05 

63 

5.37 

32 

38.69 

0 

0.00 

268 

120.03 

35 

4.78 

238 

0.00 

636 

168.87 

180.52 

80.99 

430.38 

311-02 

35 

3.85 

14 

18.77 

0 

0.00 

63 

35.92 

34 

5.49 

119 

0.00 

265 

64.03 

14.52 

46.28 

124.83 

350-00 

231 

31 .82 

85 

96.48 

0 

0.00 

210 

121.95 

114 

16 .66 

250 

0.00 

890 

266.91 

274.45 

80.99 

622.96 

402-01 

52 

5.60 

4 

0.00 

0 

0.00 

23 

11.81 

5 

0.65 

32 

0.00 

116 

18.06 

11.92 

23.14 

53.12 

415-01 

67 

7.02 

52 

44.70 

0 

0.00 

262 

185.46 

118 

18.58 

681 

0.00 

1180 

255.76 

213.18 

80.99 

549.9j 

423-01 

4 

0.53 

2 

1.90 

0 

0.00 

6 

4.71 

2 

0.22 

6 

0.00 

20 

7.36 

53.40 

46.28 

107.04 

429-03 

7 

0.77 

5 

3.22 

0 

0.00 

20 

5.25 

5 

0.55 

8 

0.00 

45 

9.79 

14.52 

o4.71 

59.02 

436-01 

47 

4.17 

8 

0.92 

0 

0,00 

80 

42.26 

22 

3.04 

24 

0.00 

181 

50.39 

26.70 

57.85 

134.94 

56 0-01 

3 

0 ..j3 

0 

0.00 

0 

0.00 

0 

0.00 

2 

0.22 

5 

0.00 

10 

0.55 

25.10 

34.71 

60.69 

571-05 

17 

3.31 

0 

0.00 

0 

0.00 

21 

14.91 

11 

1 .62 

10 

0.00 

59 

19.84 

14.52 

23.14 

57.50 

810-01 

28 

3.28 

14 

1.71 

0 

0.00 

87 

39.60 

19 

2.19 

187 

0.00 

335 

46.78 

98.21 

80.99 

325.98 

840-20 

86 

9.58 

143 

88.82 

0 

0.00 

2 26 

204.37 

57 

9.16 

258 

0.00 

770 

311.93 

271.20 

80.99 

664.12 

890-22 

44 

7.40 

10 

1.51 

0 

0.00 

80 

44.08 

14 

1.75 

120 

0.00 

268 

54.74 

58.08 

80.99 

193.81 

950-01 

6 

0.44 

57 

61.39 

0 

0.00 

69 

41 .60 

8 

0.98 

131 

0.00 

271 

104.41 

29.04 

80.99 

214.44 

991-01 

71 

8.90 

12 

5.28 

0 

0.00 

98 

47.10 

37 

4.77 

132 

0.00 

350 

66.05 

25.20 

46.28 

1->7.5j 

9999 

142 

15.75 

49 

16.48 

0 

0.00 

87 

34.50 

17 

3.00 

432 

0.00 

727 

69.73 

130.00 

80.99 

280.72 


FINAL TOrALS FOR COMPANY 


LOCAL 

DDD(TOLL) 

IDDD 

WATS 

FX-TL 

OTHER 

EQUIP 

OVRHD 


2,654 

1.665 

0 

4.677 
1.601 
7.072 
0 
0 


SJ12.7J 
81.469.42 
80.00 
S2.7J0.69 
8221.87 
80.00 
84.122.52 
81.527.24 


COMMUNICATIONS ANALYSIS COKP 
100 FOUNTAIN ST 
FRAMINGHAM. MASS 01701 
617-875-7300 


INWATS CALLS ARE SHOWN UNDER COLUMN *OTHExi* 


TOTAL 


17.669 


810.384.47 



BACdtrs© can do it all! 


BAC into RTS / BAC into MAC /BAC into BAS BACmac is a unique software tool, running 

under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RTl 1 — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E, RTl 1, Macro-11 and Basic-Plus are trademarks of Digital 
Equipment Corporation. 


Please write for more information 



y— Telecom Computer Systems, Inc. 
PO. Box 03285 
Portland, Oregon 97203 
S- 503/286-5122 



CIRCLE 47 ON READER CARD 
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XOREN IPL-II... 

...THE SOFTWARE PACKAGE WHICH TRANSFERS FILES... 
...BETWEEN DEC PDP-ll’s LSI-IPsAVAX-ll’s... 

...EVEN WHEN THEY HAVE DIFFERENT OPERATING SYSTEMS 


- INTERFACE HARDWARE - 

XOREN IPL-11 links the two CPU's together. No special 
interface hardware is required other than (in the case of remote 
computers) modems or acoustic couplers. Package operates via 
standard DEC terminal interface cards-DL11, DZ11, DH11,etc. 


- DATA INTEGRITY - 

CRC checking by software to CCITT recommendation \/41. 
Recovers from errors by re-transmitting only the blocks 
affected. 


-TRANSMISSION - 

Asynchronous transmission with selectable speeds up to 9600 
baud. Any ^pe of file including binary program files may be 
transferred in either direction (Note RMS files should first be 
converted to sequential files). 

- OPERATING SYSTEMS - 

Versions of this package are available now to run under 
RSX-11M (and RSX-11M PLUS), RT-11, RSTS/E, (and 
equivalent versions of CTS-300 and CTS-500), TSX (and 
TSX-PLUS) and VAX/VMS in RSX-11M compatibility mode. 


EXISTING INSTALLATIONS-Over 100 copies of XOREN IPL-11 are currently installed. 



XOREN IPL-11 available from:-US: 


Note;- Xoren is currently setting up a 
network of distributors in the US. For 
further information contact 
Xoren Computing direct. 


EEC Systems 

286 Boston Post Road 

Wayland 

MA01778,USA 

Tel (617) 358 7782 


A2/2 
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UK & Europe: Xoren Computing Ltd 
28 Maddox Street 
London WIR 9PF 
England 

Tel (OT) 629 5932 











EXCEPTION 

REPORT ON 

CALLS OVER 15 MINUTES 

OR S5.00 



RUN month: APR 

20 










COMPUTER RUN: 

7-MAY-81 



DEPT 

EXTENSION 


NAME 

NUMBER CALLED 

CITY STATE 

DURATION 

COST 



ADM IN 

407 

J 

SMITH 

1-212-597-4143 

NEW YORK 

NY 

39.6 

8 9.57 



MRKTG 

32S 

L 

SIMONE 

1-492-7711 

CAMBRIDGE 

MA 

36.1 

7.53 

BAYBANK 


HRKTG 

445 

R 

ADAMS 

1-213-998-3221 

NEW YORK 

NY 

28.8 

11.19 



PURCH 

225 

B 

RICOTTI 

1-421-4455 

BOSTON 

MA 

26.3 

5.20 



ADMIN 

407 

J 

SMITH 

1-212-597-4143 

NEW YORK 

NY 

25.6 

4.62 

GENERAL 

FOODS 

MRKTG 

331 

H 

HARMONETTI 

1-793-7470 

WORCESTER 

MA 

23.9 

4.60 



ENGRG 

293 

P 

PURCI 

1-312-879-2421 

CHICAGO 

IL 

19.7 

6.16 

CHICAGO 

BRANCH 

MPKTG 

419 

A 

ELDEN 

588-3553 

BROCKTON 

MA 

18.0 

.43 



ADM IN 

333 

J 

JACKMAN 

1-879-5000 

FRAMINGHM 

MA 

16.8 

3.28 



ADMIN 

407 

J 

SMITH 

1-202-521-2121 

WASH 

DC 

15.3 

4.76 

F.C.C. 



NO OTHER CALLS EXCEEDED 15 MINUTES OJ? S5.00 


Back Issues are now available! Have a complete set of the RSTS PROFESSIONAL! 

Every issue contains valuabie information you will want to have on hand or to give away to a friend. 
Check issues desired and send to: RSTS Professional. Back Issues. P.O. Box 361, Ft. Washington, PA 19034-0361. 
Back Issues: ®10°° per issue if paid in advance. ®12“per issue if biiled. 


□ Vol. 1. 

□ Vol. 2. #1 

□ Vol. 2. #2 

□ Vol. 2. ^3 


□ Vol. 2. *"4 

□ Vol. 3. #1 

□ Vol. 3. #2 

□ Vol. 3. ^3 


□ Vol. 3. #4 

□ Vol. 4. #1 











World's Biggest Exposition of DEC-Compatibles! 

DEXP082 

The First National DEC-Compatible Industry Exposition 

Marriott Hotel, Atlanta May 10-12,1982 


Get The Most Out of Your DEC System 
Visit the Only Show Big Enough for 
All Yom DEC-Directed Needs... 

Now there's a show dedicated to making your DEC 
system better. At DEXPO 82 every exhibitor will be 
demonstrating products and services that are compat¬ 
ible with your DEC equipment. That means starting 
today there's no longer a need to visit any other show, 
because DEXPO 82 features more DEC-compatibles 
than you'll find at any other event in the world. 


DECUS Conference Registrants: Your Atlanta 
schedule is not complete until you visit DEXPO 82 
— only a few blocks from your meetings! 


• Compare thousands of the newest DEC-compatible 
products and services — many on exhibit for the first 
time anywhere — all under one roof. 

• Select alternatives, enhancements and special solu¬ 
tions from an international group of vendors. Choose 
the best technologies in the world. 

• Attend free "Product Forums" demonstrating the 
latest DEC-compatibles. Discover new capabilities, 
applications and ideas to improve or expand your 
system. 

• Meet more than 100 vendors of DEC-compatible soft¬ 
ware, hardware and related services and supplies, 
including: 

Accessories • Applications Software • Books • Bus 
Links • Consulting Services • Controllers • Data Entry 
Systems • Data Communications Equipment • Data 
Preparation Systems • Data Handling Systems • Disk 
Drives • Educational Services • Enhancements • 
Floppy Disk Drives • Forms • Graphic Display Termi¬ 
nals • Magazines • Memory Products • Miiltiplexers • 
Modems • Optical Character Recognition Equipment • 
Periodicals • Peripherals • Power Supplies • Printers • 
Productivity Tools • Software • Software Services • 
Supplies • Systems Software • Tape Drives • Terminals 

• Training Services® Video Processors® \^deo Displays 



DEC is a registered trademark of the Digital Equipment Cor¬ 
poration. DEXPO 82 is not affiliated with DECUS or the 
Digital Equipment Corporation. 


Mail Today for FREE Information, Reduced-Rate 
Tickets and Hotel Discounts 


□ Send. 


reduced-rate DEXPO 82 tickets for 


my associates and myself. Also send complete 
information on the Show. 

□ Send information on discount hotel rates available 
to DEXPO 82 visitors. 


Name. 


-Title. 


Company 
Address _ 
City- 


-State - 


-Zip. 


Mail to: Expoconsul International, Inc. 
19 Yeger Road 
Cranbury, N.J. 08512 
(Phone: 609-799-1661) 
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DISK I/O FROM MACRO 

By Bob "MACRO MAN" Meyer 


The following article describes the use of some basic 
disk-related monitor calls, and a detailed example of their 
use. 

The calls we ll be using include: 

.FSS Use the file string scanner 

OPNFQ Open an existing file for input 

CREFQ Create a new file 

.READ Read blocks from the input file 

.WRITE Write blocks to the output file 

CLSFQ Close a file 

In order to use all of the above calls, the sample pro¬ 
gram will do the following: 

1) Open '$UTILTY.HLP’ for input (or any other file of your 
choice) 

2) Create the output file OUTPUT.DAT’ in the current ac¬ 
count 

3) Transfer blocks from the input file to the output file, 
watching for End of File 

4) Close the output file 

Let's examine each call in detail. The File String Scan¬ 
ner. or FSS. is a monitor function provided for interpreting 
various file name strings. The FSS routines will accept a file 
name, parse that name (quite throughly), and exit with the 
FIRQB setup for an open or close type function. The FSS call 
understands about many file name specifics, including Pro¬ 
tection codes. Account specs, dollar signs, user assigned & 
system wide logicals, special switches to FIP (/mode:xx, /ro, 
/filesize:xx. etc...) and several other goodies. For more 
details on FSS, see your System Directives Manual, page 
3-93. 

So before opening the input file, we must pass the 
name & account specification through the file string scan¬ 
ner. This is shown in the example program just after clear¬ 
ing the FIRQB. under the symbol 10$:. To use the FSS. we 
simply pass (in the XRB) the length of the file name string, 
and its starting position. If no errors are detected, control is 
passed to the symbol 20$:. For the sake of simplicity, if any 
errors occur in the program, we ll just put the error code in 
RO and crash the program. The BPT instruction will cause 
the RSX emulator to crash the task and give us a register 
dump on the terminal (in octal). The first group of numbers 
will contain the RSTS error code; be sure to translate to 
decimal before attempting to understand it. 

Assuming the FSS worked correctly, the FIRQB should 
be setup for the open function of FIP. Before calling FIP, we 
must specify that we want a file open function (OPENFQ) by 
placing the proper code in the FIRQB. All that is left is to 
specify the channel number (times two) as shown at symbol 
20$:. and the CALFIP directive can be executed. If anything 
goes wrong here, such as a non-existent file or incorrect pro¬ 
tection code, the program will crash at this point, again with 
the octal error code in RO. 

Once the input file is opened, we can create the output 


file. As with the open for input function above, we must 
first run the file name through the file string scanner. This 
is done at symbol 40$:. 

Now that the FIRQB is setup, we need to specify that 
we want to create a new file. This is done at symbol 50$: by 
moving the create function code (CREFQ) into the FIRQB as 
well as the channel number (times two) of the output file. 
From there FIP is called, and we check for errors. 

If we get this far. the both files must be open. The next 
step is to begin transferring data. This is done using the 
.READ directive as shown at symbol 60$:. The parameters 
passed on a read are: 

1) Number of bytes to read (must be a multiple of 512 for 
disk) 

2) Where to put the data in our workspace 

3) The channel number to read from 

4) An optional block number to read (zero being sequential) 

5) And any device-dependant modifiers (none needed here) 

After reading the block, we should check for End of 
File. This is done by the CMPB (compare byte) instruction a 
few lines under the .READ; in our example, if no error oc¬ 
curs, we go write a block at 70$:, if error 11 occurs (End of 
File on device), we branch to a close routine. If any other 
unexpected errors occur, we crash the program. 

Now that we've read a block of data, we have it in our 
buffer (BUFF), and we have the option of doing anything we 
please with it. Again, for simplicity, we re just going to 
move it to the output file. 

So, at symbol 70$:, we load the XRB for a .WRITE 
monitor call. As in the .READ, we specify the buffer address, 
the buffer length, and the output channel. After the .WRITE 
we check for errors, and if all is well we branch back to the 
READ routine, continuing until End of File is reached. 

Once we get to the End of File, we close it using the 
CLSFQ function of FIP. Since no errors are possible with 
CLSFQ. we can just exit to the system default run-time 
system. 

This program is very self contained, so assembly & 
linkage is simple: 

MAC CREATE = CREATE 
TKB CREATE = CREATE 

That will do it. Run create, and by using t Tyou can watch 
the operation of the program. When finished, you should 
find the file OUTPUT.DAT in your account, and it should be 
an exact copy of the input file (UTILTY.HLP in our case). 
That's all for now; thanks for reading! 

[1,10J CREATE.MAC 

.title create 
.ident /l.O/ 

.dsabl gbl 


;aeiine everything 

clsfq *0 ;close function code 

opnfq *2 ;open function code 

crefq «4 ;create function code 
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outchn 

=2*13. 


;output channel 

mov 

Inewtil,(r0)+ 

;ouput file name 

cnan 

=2*14 . 


;input channel 

clr 

(r0) + 






clr 

(r0) + 


xrb 

=442 


;xrb 

clr 

(rO)-i- 


f irqb 

= 402 


;firqb 

clr 

(r0) + 






.fss 


;file name string scan 

caifip 

=lu4000 


;call fip emt 

tstb 

@lfirqb 


. f ss 

=104064 


;file string scanner 

beq 

50$ 


. read 

=104002 


;read directive 

mov 

@lfirqb,rO 


.exit 

=1U4046 


;exit to default rts 

bpt 



.write 

=104004 






file: 

.ascii 

/ll,2]utilty.hlp/ 

;file to open ;create 

the output 

file 


fillen 

=.-file 


;length of file name ; 




newtil 

.ascii /sy 

;output.dat/ 

;output file name 5u$; 

movb 

Icretq,@lfirqb+3 

;ask for create 

newlen 

=.-newfil 

;length or output file name 

movb 

loutchn,@#firqb+4 

;channel number of output f; 

.even 




caifip 


;call faithful fip... 





tstb 

etfirqb 


buff:: 

.blkb 

512. 

;disk buffer 

beq 

60$ 


buflen 

=.-buff 


;len ot the buffer 

mov 

@lfirqb,rO 






bpt 



;start 

of main code 

; 







;read a 

block from 

1 the input file 


create 

mov 

Ifirqb,rO 

;clear the firqb ; 





mov 

il6.,rl 

6u$; 

mov 

Ixrb,r0 

;point to xrb 

10$; 

clr 

{r0) + 


mov 

Ibuflen,(r0)+ 

;move in buffer lengtn 


sob 

rl,10$ 


clr 

(r0) + 

;must be 0 





mov 

Ibuff,(rO)+ 

;move in address of buffer 





mov 

Ichan,(rO)+ 

;move in channel number 

;run input file name through .fss 


clr 

(r0) + 

/block number to read 

; 




clr 

(r0) + 

/wait time 


mov 

«xrb,r0 

;point to xrb 

clr 

(r0) + 

/modifiers 


mov 

Ifillen,(r0)+ 

;move in name lengtn 

. read 


/call the monitor 


mov 

Ifillen,(r0)+ 

;twice... 

tstb 

@lfirqb 

/watch for errors 


mov 

Ifile,(r0)+ 

;move in the name 

beq 

70$ 

/none 


clr 

(r0) + 


cmpo 

@»firqb,lll. 

/end of input file? 


clr 

(r0) + 


beq 

close 

/yes/ cleanup & exit 


clr 

(r0) + 


mov 

Etfirqb,rO 

/else crash the program 


clr 

(r0) + 


bpt 




.fss 


;call the file string scanner 





tstb 

@ffirqb 






beq 

20$ 

;write 

a block to 

the output file 



mov 

§*firqb,rO 






bpt 


7u$; 

mov 

Ixrb,rO 

/point to xrb 





mov 

Ibuflen,(rO)+ 

/buf length 





mov 

Ibuflen,(rO)+ 

/buf length 

;open 

the input file 


mov 

Ibuff,(rO)+ 

/point to address of buffer 





mov 

loutchn,(rO)+ 

/channel number to write to 

20$; 

movb 

lopnfq,@#firqb+3 

;ask for 'open for input* function 

clr 

(r0) + 

/block number to write to 


movb 

Ichan,@#firqb+4 

;specify channel 1 

clr 

(r0) + 



caifip 


;cail fip to do the open 

clr 

(r0) + 

/modifers 


tstb 

§#firqb 


.write 




beq 

30$ 


tstb 

eifirqb 



mov 

@#firqb,rO 


beq 

60$ 

/go read next block 


bpt 



mov 

firqb,rO 






bpt 



;fss the output file name 





; 



;close 

the output 

file 


3u$; 

mov 

Ifirqb,rO 

;clear the firqb ; 





mov 

116.,rl 

close; 

movb 

Iclsfq,@lfirqb+3 

/close chan fun code 

40$; 

clr 

(r0) + 


mov 

loutchn,@lfirqb+4 

/chan to close 


sob 

rl,40$ 


caifip 


/fip call to close 


mov 

Ixrb,r0 

;point to xrb 

.exit 


/return to default rts 


mov 

Inewlen,(rO)+ 

;length ot new file name 





mov 

Inewlen,(rO)+ 

;length of new file name 

.end 

create 



Don’t just “get by’’ . . . 

Call MACRO MAN 

for superior performance 

RSTS Internals • Custom Macro Programming • RSTS or 11M 


LEARN MACRO FROM THE MASTER! 

One week course in Philadelphia — call for details. 

MACRO UTILITY LIBRARY Soon — 

Available now! Also Available Now — XBUF Display. 

Call for information. VAX MACRO Consulting XBUF contents revealed! 


Bob 'Macro Man* Meyer 

9 Lockwood Avenue, Fieldsboro, NJ 08505 

609 - 298-9127 
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GETTING THE MOST OUT OF YOUR 
DEC FIELD SERVICE 

By Mark H. Deibert, Systems Manager. Minicomputer Services E. R. Squibb and Sons, Inc. 


The ability of a RSTS System Manager (small shops) or 
Technical Support Manager (larger shops) to keep his/her 
RSTS system up and running usually requires more than an 
ability to deal with RSTS. Effective interaction with Digital's 
Field Service organization can be the difference between 
promotability and the need to hastily update one’s resume. 

In four years of dealing with over nine different DEC 
Field Service branches, including most U.S. Field Service 
regions, I have found that the key to a positive and mutually 
beneficial relationship between the customer and Digital 
Field Service is that person known as the Branch Manager. 

All too often we (customers) tend to deal with Field Ser¬ 
vice only in crisis mode. How many times has DEC Field Ser¬ 
vice received this type of call: 

“My system crashed after a lightning storm; the system disk 
won’t boot and I have 53 reports due on the C.I.S. director’s desk 
in two hours... What do you mean you can’t send someone out 
until about 3 P.M.’? ... What am I paying for anyway? ” 

The most salient part of the fictional scenario mention¬ 
ed above is the question "What am I paying for, anyway?”. 
The time to find this out is well in advance of the first major 
disaster. There are. however, several answers to this ques¬ 
tion and the person who controls the implementation of 
those answers is the Branch Manager. 

DEC offers essentially two flavors of Field Service 
Agreements; BASIC Service and DECservice. 

Basic Service provides contractual coverage (parts and 
labor) for equipment on a BEST AVAILABLE EFFORT basis. 
Under Basic Service, DEC agrees to furnish a service techni¬ 
cian and parts as soon as a technician is available. If you are 
a Basic Service customer, your ability to affect your local 
DEC Field Service organization can be pretty much reduced 
to a “who you know" (friend of a friend of a neighbor of the 
District Manager) situation. Although some of the sugges¬ 
tions following apply to you, your clout within DEC Field Ser¬ 
vice will be reduced. 

Under DEC service (so the sales brochure says) DEC is 
committed to providing continuous effort and technical ex¬ 
pertise escalation until the problem is resolved. If you are a 
DEC service customer (about a 25% contract price premium) 
you have entered into an agreement with your local Field 
Service organization indicating that you are willing to "put 
your money where your mouth is” for the best field service 
that DEC is willing to supply. 

I would recommend that every DEC service customer 
take the following initiative to ensure that the communica¬ 
tion pathways are open to the DEC Field Service Branch 
Manager: 

1. Meet with your Branch Manager and Unit Manager dur¬ 
ing a non-crisis time (hopefully before your first crisis 
and preferrably over lunch) to discuss your expectation 
level regarding your Field Service contract as it relates to 
your Branch's ability to provide service. Discuss such 


matters as initial response time (with a real person as 
well as the DDQ. escalation timeframes (the ones in the 
sales brochure are frequently mythical), sparing levels (if 
you have eighteen RP06’s you might reasonably expect 
the branch to be spared at least two boards deep, if you 
have the only DEC tape system in the branch the spares 
should still be in the branch), technician competence 
level and availability (does the branch manager dispatch 
his receptionist to DEC service sites so that his response 
time stays good even though all his senior technicians 
are tied up), and any special needs that you feel you have 
(e.g. "I can only give you the system after 3:00 PM for 
tape drive repairs"). 

2. Request that your Branch Manager set up a meeting 
with yourself and his/her District Manager to review the 
above issues at the District Level. 

3. Get a table of organization for your Field Service Branch. 
The table should begin with your Site Rep and end with 
Ken Olson. Although you probably won’t ever have to go 
above the Regional Level the purpose of getting the table 
is to ensure that DEC knows that YOU know how to get 
to the top if necessary. 

4. Establish and maintain your credibility with your Branch 
Manager by verifying that your problems are hardware 
related before placing a service call. If the call is on a ter¬ 
minal, and you can wait until Monday to get the terminal 
repaired, don’t insist on a four hour response time at 
4:45 P.M. on a Friday afternoon. 

5. Having done all of the above, when a crisis does occur in¬ 
sist on staying in the information flow. NEVER hassle a 
technician who is repairing your machine (you want 
him/her to WANT to fix it quickly), but request and in¬ 
sist upon periodic updates from the Problem Manager 
(usually the Unit Manager). There is no worse feeling 
than finding out that a problem that you thought was 
resolved last night is still keeping your system down this 
morning. 

6. After a major problem or repair, meet with the Unit 
Manager and Branch Manager to iron out rough spots in 
the repair procedure. 

7. Be assertive. If the problem is not being resolved in a 
reasonable and straightforward fashion, you are entitled 
to know from the Branch Manager how he/she is going 
to rectify the situation NOW. 

Effective communications between DEC customer and DEC 
Reid Service will certainly be enhanced if you proceed from 
the premise that your Branch Manager ’s job is to provide an 
acceptable level of service to you, while efficiently managing 
the resources at his/her disposal. My observation over the 
last several years has been that DEC Reid Service manage¬ 
ment is usually willing to meet the customer more than half¬ 
way, provided the customer has a reasonable and realistic 
expectation of the service which he/she has purchased. ^ 
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Where DEC is Headed 



■ 



McxTOSSon on DEC* 


Monosson on DEC * is a monthly 
newsletter devoted to DEC, to 
understanding DEC, to analyz¬ 
ing DEC products, DEC policies, 
DEC services, DEC manage¬ 
ment, and where DEC is headed, 
representing the collective 
research of an organization 
operating exclusively in the DEC 
marketplace. 


-Our Subcribers Say- 

"I saved over $20,000 following your advice on purchasing." 
(A Major University) 

"Your backround on DEC enabled me to resolve my software 
conversion probiem ... we thank you! 

(A Longtime DEC Customer) 

"Particularly valuable for the people who buy from DEC" 
(New DEC Customer) 


"DEC'S market strategy, products management... excellent 
information" (Computer Artalysl) 


Call or Write: Monosson on DEC* 

at:712 Beacon Street, Boston, MA 02215, Telephone 617-437-1100 

CIRCLE 81 ON READER CARD 


*DEC is a Trademark of Digital Equipment Corporation 
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FILMAP.BAS 

By Jim Swanson, Area Two Educational Computer Center. Mason City. Iowa 


AUTHOR: 

DATE: 

VERSION: 


F I L M A P 


JIM SWANSON 
8-JUL-81 
1.0 


COPYRIGHT 


Copyright (C) 1981 by 
Area Two Educational Computer Center, Mason City, lA 4 

& 

& 

This software is furnished free of charge to members of tne 4 

North American DECUS organization and may be copied only 4 

with the inclusion of the above copyright notice. This 4 
software or any other copies thereof may not be provided or 4 
otherwise made available to any other person. No title to and 4 
ownership of the software is hereby transferred. 4 

The information in this software is subject to change without 4 
notice and should not be construed as a commitment by The Area 4 
Two Computer Center. ^ 

ATECC assumes no responsibility for the use or reliability 4 
Of its software. 

PROGRAM DESCRIPTION; 4 

4 

This program will read the device cluster maps from the 4 
UFD's retrieval entries (UAR's). 4 

4 

Wildcards are permitted in all of the input file specs 4 

such as: |1,*1*.DAT, or DR2:(*,* 1STUF??.*, etc. 4 

4 

To read the cluster map of a UFD include the switch 4 

"/UFD" after thfe device:PPN. EX: "SY;(1,23J/UFD" will print 4 
tne file cluster map of the ufd of account 1,23 on the 4 

dibK "SY:". *■ 


lU I THE OUTPUT: 


EXAMPLE OF A FILE MAP: 


IDKl 

: (1 

,501SYi>TAT.BAS 

Cl; 4 Si; 106 <- (file size) 



4 

ICLSTR/ 

DCN(S) 

where clusters start ( DCN'S/CLSTR: 1 ) 



4 


1/ 

3764 

3765 

3766 * <- (The star indicates non- 

-contiguous) 

4 


4/ 

4950 

4951 

4952 4953 * 



4 


8/ 

5187 

5188 

5189 5190 5191 5192 5193 

5194 

5195 

5196 4 


lo/ 

519/ 

5198 

5199 5200 5201 5202 5203 

5204 

5205 

5206 4 




Total 

clusters; 27 Allocated size: 108 



4 



(the first cluster I's in each row) 



4 

4 





EXAMPLE OF A UFD MAP: 



4 

4 

fUBO 

;(15,0J Cl: 

16 




4 

ICLSTR/ 

DCN(S) 

where clusters start ( DCN'S/CLSTR; 4 ) 



4 


1/ 

16693 

16697 

16701 16705 16709 16713 16717 



4 




Total 

clusters: 7 Allocated size: 112 



4 


{ NOTE: no stars printed means that this UFD is contiguous ) 


DIM #1%, U%(3583%,7%) 4 

\ DIM C%(30%) 4 

!> U%(3583,7) * UFD ARRAY 4 

I> C%(30) = FOR FILE SPECS TO GO TO WILDCARD LOOKUPi, 4 

ON ERROR GOTO 19000 4 

\ PRINT "FILMAP - Prints list of retrieval DCN's for any file." 4 
\ PRINT 4 

1> 19000, STANDARD ERROR TRAP 4 

! A LITTLE SIGNON BLURB 4 

PRINT 'Output to <KB;>’; 4 

\ INPUT LINE 0$ 4 

\ 0$ » CVTS$(0$,-1%) 4 

\ 0% - 12% 4 

\ 0% = 0% UNLESS LEN(0$) 4 

\ IF 0% 4 

THEN OPEN 0$ FOR OUTPUT AS FILE t0% 4 

!> 0$ = OUTPUT FILE NAME 4 

!> 0% = OUTPUT FILE CHANNEL (0 IF 0$ * "KB:") 4 

INPUi 'W-ide or N-arrow cN^'.-AS 4 

\ WDTH% * 80% 4 

\ WDTH% = 132% IF ASCII(AS) = 87% 4 

\ WDTH% = 80% IF ASCII(AS) = 78% 4 

!> WDTH% = WIDTH OF PRINTOUT 4 

WILDRAD% = -17947% 4 

\ TOTAL.FILES% =0% 4 

WILDRAD% = RAD-5U REPRESNTATION OF "???" 4 

TOTAL.FILES% * TOTAL NUMBER OF FILES MAPPED 4 

PkINT * 4 

\ PRINT 10%, 'Cluster maps printed on ';DATES(0%);' at ';TiMES(u%) 4 
^ PRINT #0% b 

! A HEADING LINE FOR THE PRINT OUT 


TOTAL.FILES% + FIL.CNT% 


0 % 


(C%(29%) AND 1%) - 0% 
(C%(29%) AND 1%) » 0% 
(C%(29%) AND 8%) * 0% 
(C%(29%) AND 8%) * 0% 


Print 'File'; 

\ TOTAL.FILES% = 

\ FIL.CNT% = 0% 

\ INFUi LINE FS 
\ FS = CVTSS(FS,4%) 

\ UFD.% = INSTR{1%,FS,'/UFD') 

\ GOTO 32767 UNLESS LEN(FS) 

\ SS = SYS(CHRS(6%)+CHRS(-23%)+FS) 

\ change ss to C% 

\ C%{7%),C%(9%) = WILDRAD% IF 

\ C%(8%),C%(10%) * SWAP%(WILDRAD%) IF 
\ C%{11%) = WILDRAD% IF 

\ C%(12%) = SWAP%(WILDRAD%) IF 

\ CHANGE C% TO SS 
\ PPN.INX% = 0% 

\ DEVS = 'SY:' 

\ DEVS = CHRS(C%(23%))+CHRS(C%(24))+NUM1S(C%(25%))+';' 

IF C%(23%) 

\ GOSUB 10500 

\ GOTO 2000 IF ERROR% 

! GET FILE SPECS FOR MAPS 
!> FS = FILESPECS FOR MAPPING 

!> FIL.CNT% » NUMBER OF FILES MAPPED FOR THIS SPEC 
I> SS = SYSCALL RETURN STRING FROM FILNAME SCAN OF "FS" 
! ALSO CHECK FOR FILE NAME (ADD *.* IF NONE) 

!> PPN.INX% » PPN INDEX FOR WILDCARD PPN LOOKUP 
!> DEVS = DEVICE NAME (SY: IS DEFAULT) 

!> 10500, GET THE DEVICE CLUSTER SIZE (PAKCLU) 

! RETURN TO FILE PROMPT IF AN INVALID DEVICE 

GOSUB 10000 
\ IF PPN.INX% < 0% 

THEN PRINT 'No matches for for file-spec;';FS 
UNLESS FIL.CNT% 

\ GOTO 2000 

!> 10000, GET A PPN ON INDEX FROM THE INPUT FILE NAME 

It UFD.% 

THEN GOSUB 4000 

\ PPN.INX% » PPN.INX% + 1% 

\ GOTO 2010 

! THIS FOR LOOKINP UP UFD MAPS ONLY 

UFD.S * DEVS + 'I'+NUM1$(SWAP%(PPN%) AND 255%)+’,' 

+NUM1S(PPN% AND 255%)+'!• 

\ OPEN UFD.S FOR INPUT AS FILE #1% 

\ Sis = SYS(CHRS(12%)) 

\ S% = SWAP%(CVTS%(MID{S1S,13%,2%)) ) 

\ UFD.CLU% * U%{31%,0%) 

\ IP S% - 0% 

THEN PPN.INX% » PPN.INX% + 1% 

\ GOTO 2000 

! RETURN IF THE PPN INDEX COUNTER SHOWS NO MORE 
!> UFD.S * NAME OF UFD TO OPEN FOR FILE INFORMATION 
! OPEN THE UFD FOR THE LOOKUPS 

! CHECK THE UFD'S SIZE, MAKE SURE IT'S NOT ZEROED 


1 % 


0 % 


2030 

3000 


\ CHANGE SYS(CHRS(6%)+CHRS(-10%) + PIS) TO FILCALL% 

!> 1% * WILDCARD FILENAME LOOKUP INDEX 

FILCALLS * SYS(CHRS(6%)+CHRS(17%)+CHR$(I%)+CHRS(SWAP%(I%)) 
+CHRS(PPN%)+CHRS(SWAP%(PPN%))+MID(SS,7% ,24%)) 

\ GOSUB 3000 

!> FILCALLS » RETURNED STRING FROM WILDCARD FILNAME CALL 

1 % » 1 % + 1 % 

\ GOTO 2025 


PRINT A MAP FOR A FILE 


PTR% » 0% 

\ Fl% = SWAP%(CVTS%(MID(FILCALLS,7%,2%))) 

\ F2% = SWAP%(CVTS%(MID(FILCALL$,9%,2%))) 

\ F3% = SWAP%(CVTS%(MID(FILCALLS,11%,2%))) 

! GET THE FILNAME IN RAD50 

!> PTR% » CURRENT POINTER INTO THE UFD NAME ENTRY 
!> Fl% « FIRST 3 CHARACTERS OF FILENAME IN RAD50 
!> Fl% » LAST 3 CHARACTERS OF FILENAME IN RAD50 
!> Fl% = EXTENSION OF FILENAME IN RAD50 


PTR% = 

FNL%(U%(PTR%,0%)) 



\ GOTO 

3050 

UNLESS 

i>TR% 


\ GOTO 

3040 

IF 

U%(PTR%,4%) 

AND 64% 

\ GOTO 

3040 

UNLESS 

U%(PTR%,1%) 

= Fl% 

\ GOTO 

3040 

UNLESS 

U%(PTR%,2%) 

= F2% 

\ GOTO 

3040 

UNLESS 

U%(PTR%,3%) 

= F3% 

\ GOTO 

3060 





K I 1 I K A M K 


1. O 0 K »' P 


! FIND THE FILE 

PRINT 'File not found.';RADS(F1%);RADS(F2%);RADS(F3%) 

\ GOTO 3090 

UAR% = FNL%(U%(PTR%,7%)) 

\ UAA% = FNL%(U%(PTR%,6%)) 

\ F.CLU% = U%(UAA%,7%) 

\ F.SIZ% = U%(UAA%,2%) 

\ CLUS.CNT% = F.CLU%/PAKCLU% 

\ PRINT #0% 

\ PRINT fO%, UFD.S;RADS(F1%);RADS(F2%);'.' 

;RADS(F3%); 

\ PRINT #0%, ' Cl:';F.CLU%; 

\ PRINT #0%, ' Si;';F.SIZ%; 

\ PRINT #0% 

\ PRINT iO%,'CLSTR/ DCN(S) where clusters start'; 

" ( DCN'S/CLSTR;";CLUS.CNT%; ') ' 

IF UAR% 

\ PRINT #0%, ' THERE ARE NO CLUSTERS ASSIGNED TO THIS FILE. 
IF UAR% = 0% 
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BRAEGEN MPD HAS THE 
DESKTOP COMPUTER 

YOU NEED 



Braegen’s Minicomputer Peripherals Division is committed to 
providing the systems and peripherals DEC-users need . . . 


FEATURES 

• Based on *LSI 11/23 Processor 

• Up to 256 KBYTES of MOS memory 

• 24 MBYTE Winchester Disk 

• 20 MBYTE cartridge tape back-up 

• Available in desk-top or rack-mount 
configurations 

• Four asynchronous communication 
ports 

• Wide range of options available 

• Quantity discounts available 


For more information on the BC-223 
family of desk-top systems or any of our 
full line of DEC-compatible disk and tape 
subsystems, terminals, printers, memories, 
multiplexors and more, please call or write: 

Marketing Dept: 

^BRREEEn 

JmPD 

3320 East La Palma Avenue 
Anaheim, California 92806 
Telephone (714) 520-9200 


“Be sure to ask about our field service force in over 50 cities nationwide” 

*Trademark of Digital Equipment Corporation circle 95 on reader card 
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\ GUTO 3090 UNLESS UAP% & 

\ CL.N%,C.WDTH%, U.CNT% =0% & 


\ DCN = U%(UAP4,1%) 

\ DCN = DCN + 65536. IF DCN ■ 0% 

\ LA^jT.DCN = DCN-CLUS.CNT% 

\ WHILE UAi<« 

\ FOR Z% » 1% TO 7% 

\ IF 0%(UAR%,Z%) » 0% 

THEN 3070 

ELSE CL.N% » U.CNT% * 7%+Z% 

\ IF C.WDTH% + 9% > WDTH% 

OR C.WDTH% = 0% 

THEN PRINT #0% 

\ C.WDTH% » 6% 

\ PRINT 10%, USING 'ii#if/';CL.K%; 

!> C.WDTH% = CURRENT CHARACTER POSITION FO PRINT OUT 
!> CL.N% = CURRENT CLUSTER NUMBER ENTRY WITHIN MAP 
I> CLUS.CNT% « NUMBER OF DCN'S / FILE CLUSTER 


10030 RETURN 
10500 ! 


FIND A DEVICE CLUSTER SIZE 


RETURN DEVICE CLUSTER SIZE IN "PAKCLU%" 

RETURN ERROR FLAG IN "ERROR%" IF DEVICE NOT FOUND 


ERROR% = 0% 


lu510 Oi'EN DEV$+*Il»ir FOR INPUT AS FILE #1% 
\ PAKCLU% ® U%{0%,4%) 


lu520 RETURN 


lyOOO 1 

! STANDARD ERROR TRAP 

! 


3u65 


3U67 


3070 


3090 

4000 


DCN « U%(UAR%,Z%) 

\ DCN * DCN + 65536. IF DCN < 0% 

\ IF LAST.DCN + CLUS.CNT% = DCN 
THEN PRINT #0%, USING ' ###•#',DCN; 

\ C.WDTH% = C.WDTH% + 7% 


IF LAST.DCN + CLUS.CNT% <> DCN i 

THEN PRINT #0%,' *' 4 

\ PRINT #0%, USING '•####/ #####';CL.N%,DCN; i 

\ C.WDTH% * 13% «- 

I PRINT THE FIRST DCN FOR TEH FILE CLUSTER, AND ANY OTHER DCNS 
I IF THE FILE’S CLUSTERSIZE IS BIGGER THAN THE DEVICE & 

! CLUSTER SIZE «■ 


LAST.DCN * DCN 4 
\ next Z% ‘ 
\ UAR% - FNL%(U%(UAR%,0%) ) *■ 
\ U.CNT% * U.CNT% + 1% «■ 
\ NEXT ^ 
\ PRINT #0%, 

\ PRINT #0%, ' Total clusters;';CL.N%; i 
\ PRINT #0%, ' Allocated size;';CL.N%*F.CLU% fc 


FIL.CNT% - FIL.CNT% + 1% *■ 

\ RETURN 

1 ^ 

I ^ 

! PRINTA MAPFORAUFD fc 

I fc 


4010 PPN$ - •I'+NUM1$(SWAP%(PPN%) AND 255%)+ 
',•+NUM1$(PPN% AND 255%)+')’ 

\ OPEN DEV$+PPN$ FOR INPUT AS FILE 11% 

\ Sl$ - SYS(CHR$(12%)) 

\ S% » SWAP%{CVT$%{MID(S1$,13%,2%))) 

\ F.CLU% - ASCII(MID(S1S,21%,1%)) 


19010 IF ERR = 5% 

THEN IF ERL « 10020% 

THEN PRINT ’No matches found for -';F$ 

IF PPN.INX% - 0% 

\ PPN.INX% » -1% 

\ RESUME 10030 

1 OUT OF PPNS IN WILDCARD PPN LOOKUP 


li#020 Ir ERR = 5% 

THEN IF ERL = 2025% 

OR ERL = 2015% 

THEN PPN.INX% = PPN.INX% + 1% 

\ RESUME 2010 

1 OUT OF FILES FOR THIS ACCOUNT 
I GO LOOK FOR ANOTHER ACCOUNT 


1^030 Ir ERL «= 10510% 

THEN ERROR% - -1% 

\ RESUME 10520 

1 CAN’T Find the MFD ON THE PACK 


1»040 IF ERR » 5% 

AND ERL - 4010% 

THEN RESUME 4095% 

! UFD NOT FOUND ON OPEN 


lyiOO E$ » R1 GmT(SYS{CHRS(6%)+CHR$(9%)+CHRS(ERR)),3%) 
!> E$ « ERROR MESSAGE 


lyllO Ir ERR = 1% 

THEN PRINT #0%, 

\ PRINT #0%, E$;' for ’;DEV$+PPN$ 

\ PRINT E$;’ for ’;DEVS+PPNS IF 0% 

\ RESUME 4090% IF ERL « 4010% 

\ IF ERL » 2015% 

THEN PPN.INX% - PPN.INX% + 1% 

\ RESUME 2010% 

! BAD DIRECTORY FOR DEVICE 


4060 


UAR% = 31% 

\ UAA% - FNL%(U%(PTR%,6%3) 

\ F.CLU% - U%(UAR%,0%) IF S% 

\ CLUS.CNt% » F.CLU%/PAKCLU% 

\ PRINT #0% 

\ PRINT #0%, DEVS;PPN$;’ C1;’;F.CLU%; 

\ PRINT #0% 

\ PRINT #0%,’CLSTR/ DCN{S) where clusters start’; 

" ( DCN'S/CLSTR;’’;CLUS.CNT%;’) ’ 

\ PRINT #0%, ’ ***ZEROED ACCOUNT***’ UNLESS S% 

\ PRINT #0% UNLESS S% 

\ GOTO 4090 UNLESS S% 

\ C.WDTH%, U.CNT% = 0% 

\ DCN - U%(UAR%,1%) 

\ DCN - DCN + 65536. IF DCN < 0% 

\ LAST.DCN « DCN-CLUS.CNT% 

\ FOR Z% - 1% TO 7% 

\ IF U%(UAR%,Z%) - 0% 

THEN 4070 

Else CL.N% - U.CNT% * 7%+Z% 

\ IF C.WDTH% + 9% > WDTH% 

OR C.WDTH% * 0% 

THEN PRINT #0% 

\ C.WDTH% « 6% 

\ PRINT #0%, USING ’i#ili/';CL.N%; 

1> C.WDTH% - CURRENT CHARACTER POSITION FO PRINT OUT 
1> CL.N% * CURRENT CLUSTER NUMBER ENTRY WITHIN MAP 
l> CLUS.CNT% « NUMBER OF DCN’S / FILE CLUSTER 


4u65 


DCN - U%(UAR%,Z%) 

\ DCN » DCN + 65536. IF DCN < 0% 

\ IF LAST.DCN + CLUS.CNT% » DCN 
THEN PRINT #0%, USING ’ •#!••’,DCN; 

\ C.WDTH% = C.WDTH% + 7% 


4u67 It LAST.DCN + CLUS.CNT% <> DCN & 

THEN PRINT #0%,’ *’ fc 

\ PRINT #0%, USING ’Hi##/ i i # f • ’; CL. N% , DCN; U 

\ C.WDTH% * 13% fc 

I PRINT THE FIRST DCN FOR TEH FILE CLUSTER, AND ANY OTHER DCNS 
! IF THE FILE’S CLUSTERSIZE IS BIGGER THAN TmE DEVICE k 

I CLUSTER SIZE & 


4070 LAST.DCN » DCN 
\ NEXT Z% 

\ UAR% = FNL%(U%(UAR%,0%)) 

\ U.CNT% » U.CNT% + 1% 

\ PRINT 10%, 

\ PRINT iO%, ’ Total cl ust tr r.; ’; CL. r:% ; 

\ PRINT #0%, ’ Allocated size; ’ ;CL.N%*F.CLn% 


4o90 Fil.CNT% = FIL.CNT% + 1% 




4095 RETURN 

10000 ! 

! WILD CARD PPN l/>(»KI!|' 

! RETURN A -1 IN "PPN. I NX'" H N( • MORi: FOUND 


& 

it 

ii 


10010 It ((C%(30%) AND 1%) OR (C%(30%) AND 2%)) * 0% 

THEN PPN% = C%(5%)+SWAP%(C%(6%)) 

\ PPN% » PEEK(PEEK(PEEK(520%)+8%)+24%) UNLESS PPN% 
\ PPN.INX% = -1% IF PPN.INX% <> 0% . 

\ RETURN 

! HERE ONLY IF NO WILDCARD WAS SPECIFIED 
1 USE CURRENT PPN IF NONE SPECIFIED 
! WE WILL ONLY USE THE ZERO-TH INDEX 


1U020 Z$ ■ SYS(CHR$(6%)+CHR$(25%)+CHRS(PPN.INX%)+CHR$(SWAP%{PPN.INX%))+ & 
MID(SS,5%,23%)) 6 

\ PPN% = SWAP%(CVTS%(MID(ZS,5%,2%))) & 

'' PPN.INX% » -1% UNLESS PPN% & 


1;#120 It 

THEN 


ERL « 2003% 

PRINT ES;• - •;FS 
\ RESUME 


19980 


It 

AND 

THEN 


ERR > 49% 

ERR < 53% 

PRINT ’Bad nubmer.’ 
\ RESUME 


19990 PRINT ERR;EkL;E$ 
\ STOP 


2u000 DEF FNL%(Z%) * (((Z% AND 3584%)/512%)*UPD.CLU%+ 
(SWAP%(Z% AND -4096%)/16%)) 

*32%+((Z% AND 496%)/16%) 

1> FNL%(LInK WORD) - FIND LINK TO UFD ENTRY 

32/67 END 



R5T5 

cammflND 































With LSI 11/PDP11 Software 
Compatible Disc/Tape Con¬ 
trollers Offering Single 
Board Low Power ^P Based 
Design and Low Cost... 

Plus Many Other Good Reasons! 

The reasons start with DILOG’S (Distributed Logic 
Corp’s.) full time engineering and design staff. Not 
outside suppliers. That means when you contact DILOG 
for product selection or after sale service, you’ll get “first 
hand’’ assistance... along with years of experience 
manufacturing ^iP based controllers that interface with 
DEC 11 CPUs. 

The intelligent products you’ll discuss all utilize 
common proprietary architecture and DILOG automated 
design techniques—products with exceptional reliability 
and cost efficiency... mostly available from stock. And 


when you plug a DILOG con¬ 
troller into your DEC CPU it’s 
ready-to-run because it’s fully 
operating system software 
compatible. 

These high performance 
data storage interface products also feature • minimum 
bus/space requirements • up to 60% less power • 10 to 
50% lower cost • automatic self-test... and numerous 
other features for easy system integration. 

Consult the DILOG/disc-tape compatibility table for 
your needs. Then ask for detailed data on existing, or 
future products from DILCG.. .#1 in single board DEC 11 
compatible disc/tape controllers. 

Distributed Logic Corp., 12800-G Garden Grove Blvd., 
Garden Grove, CA 92643, Phone: (714) 534-8950 • 

TELEX: 681 399 DILCG GGVE 



DISC/TAPE DRIVE MANUFACTURER COMPATIBILITY CHART 



MAGNETIC TAPE 


DISC 


REEL TO REEL 
STD. & STREAMER 


2315/5440/RK05 
CARTRIDGE CLASS 


CMD 

CARTRIDGE MODULE 


SMD 

STORAGE MODULE 


WINCHESTER 
S'A", 8" OR 14" 


‘Trademark Digital Equipment Corp. 


DISTRIBUTED 
ILOCIC [ORP. 


AMPEX 

CIPHER 

CONTROL DATA 

DIGI-DATA 

KENNEDY 

MICRODATA 

PERTEC 

TANDBERG DATA (IDT) 

WANGCO 

TDX 


AMPEX 
CAELUS 
CENTURY DATA 
CONTROL DATA 
DEC 
DIABLO 
lOMEC 
MICRODATA 
PERTEC 
WANGCO 
WESTERN DYNEX 
DRI 


BASF 

CONTROL DATA 

FUJITSU 

KENNEDY 

MEMOREX 

PRIAM 

SHUGART 

SEAGATE 

QUANTUM 

IMI 


AMPEX 

CONTROL DATA 


AMPEX 

CENTURY DATA 
CONTROL DATA 
BALL COMPUTER 
MITSUBISHI 


CAPACITIES 2.5 TO 300 MB 


CIRCLE 15 ON READER CARD 
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QUERY.TEC 

A Search and Substitute TECO MACRO with QUERY Facility 

By Mark J. Diaz, Dataguard Corp.. Hinsdale, IL 60521 


TECO is generally powerful enough to accomplish any 
given search and substitute modification throughout your 
entire text file with a single command string. For example, 
removing an unknown number of spaces embedded within 
a file specification in a file produced by DIRECT is easily 
done. 

Occasionally the command string to accomplish the 
desired substitutions would either take longer to write than 
“manually" editing each occurance, or would be nearly im¬ 
possible to write because the occurances are not defined by 
their context within the text. 

For example: 

You have entered an entire file manipulation 
module. However in about half the instances where 
you should have typed a variable name correspond¬ 
ing to one file, you have typed a variable name cor¬ 
responding to another file. Assume your standard 
for variable names associated with file buffers is a 
unique 3 or 4 letter prefix, a dot. and suffix unique 
only within it’s prefix. So. you have entered 
FILE1.FIELDS when you meant to enter 
F1LE2.FIELD$ and vice versa. There is no reasonable 
pattern as to which variables should be which. 

This very example, and my desire to become more pro¬ 
ficient in TECO. caused me to write the QUERY.TEC macro. 

FEATURES 

• Underlines text to be substituted 

• Online instruction always available 

• Informs user how to get help on invalid entries 

• Options available: 

1) Do the substitution. 

2) Don’t do the substitution. 

3) Don’t do the substitution and skip rest of line. 

4) Substitute the rest of the matching strings. 

5) Exit search. 

• 'Type only the letter for any option (no RETURN). 

• Additional option easily added. 

The actual TECO macro, loaded as usual with TECO’s 
EIQUERY$$ command follows. 


After using the MQ command, QUERY will prompt for one of 
several options. Enter a question mark (?) for the help message. 

“A 

OUQ I* Zero the I-want-instructions flag *1 

"C !• Exit macro *1 


[I !* Save all registers used *! 

11 

12 
[R 


*yxi 

$0UR 

isi 

:S$“E 


Save last string inserted 

Clear the Do-rest-of-matching-strings flag *I 
If the search string can not be found, exit *l 


"AYSRH Search fail 

BJ 

OX$ 


■ “A:G_*A"'"A I* Display string not found *I 
Return to beginning of buffer *1 
Exit QUERY macro *1 


QR"N 

FR$ GI$ 
OSS 


Display line containing string found *I 
Is the Do-rest-of-matching-strings flag set ? 
Yes?, then do the substitution *! 

Go look some more *1 


• Underline the string to substitute *1 


.U2 

OL 

< 

(Q2 + ''S-.) "E 
0 ; 


Save the current position *l 

Get to the beginning of the line *1 

Are we at the string to substitute ? *1 
Yes?, then exit iteration loop *! 


(uA-9)"E 

9*T 

I 

32'‘T 


Is the character a tab ? *! 
Yes?, then display a tab *1 

No?, then display a space *! 


C 

> 

Q2J 

-''S<"A“"A> 

"A 

“A 

iAl 

'‘A>"A 

“Tul 

"A 

“A 

(Ql-89)"E 

FRS GIS 
OSS 


* Advance a character *1 

* Restore the buffer pointer *1 

* Display pointers to the string to substitute *l 


* Prompt the user for what option to do *1 

* Get response into Q-reg 1 *! 


* Was a "Y" entered ? *! 

* Yes?, the do the substitution *1 

* Go look some more *1 


(Ql-78)"E 

OSS 


Was an "N" entered ? *I 
Yes?, then go look some more *! 


(Ql-7b)"E 
L 

OSS 


was an "L" entered ? *1 

Yes?, then skip the rest of this line •! 

Go look some more *1 


(Ql-82)"E 

FRS GIS 

lUR 

OSS 


Was an "R" entered ? *1 

Yes?, then do the substitution *I 

Set the Do-rest-of-roatching-string flag *l 

Go look some more *1 


(Ql-69)"E 

OX« 


Was an "E" entered ? *! 

Yes?, then exit iteration loop *l 


(Ql-63)"E 


If a question mark is entered, *1 
display the help message *! 


“AValid options are: 

Y - Yea, do the substitution. 

N - No, do not do the substitution. 

L - No, do not do the substitution and skip the rest of the line. 

R - Substitute the rest or the remaining matches *! 

E - Exit QUERY 

? - This help message 


!* 

TECO macro: QUERY.TEC 

This macro performs search and substitute operations with 
an operator query facility. 

It it loaded (into Q-register Q) with the EIQUERYS command. 

$*A 

Loaoiug "QUtRY.TEC" into Q-reg "Q". 

Type "lUQMQSS" for instructions. 

!* Zero the I-want-instructions flag *I 
1* Load the macro into Q-reg Q *! 

!* If instructions are desired, print them and exit 

*A’ro use the QUERY macro after loading it into Q-register Q with 
the EIQUeRYS command, simply append an MQ command after your 
substitute command. 

Example: FSpront$print$VMQ$ 

Note: It would behoove you not to exit this macro with ''C because 

Q-registers I, R, 1, and 2 are used and restored on a normal 
exit (either an E command or a search failure). 


-A 

OUQ 

@-UQ/ 

QQ-N 


V 1* Redisplay the current line *! 

OA$ 1* Go ask again *I 


I* Entry was not a valid option *1 

(Q1-13)"E I* Was a carraige return entered ? *1 

*T !* Yes?, then get the line-feed *! 

“APlease enter a valid option, type "?" for HELP. 

"A 

V !* Redisplay the current line *1 

OA$ 1* Go ask again *! 

!Xl 1* Exit QUERY macro *1 

*A 

^A 

JR !* Restore all Q-regiteres used *! 

12 

11 

H 

$/EI$$ 
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THE ELECTRONIC SPREADSHEET 

APPLICATIONS 

Financial statements 
Business forecasting 
Resource management 
Investment analysis 
Job costing 
Performance analysis 
Cash Flow analysis 
Error analysis 

EASY TO USE 

Built-In automatic training procedure 
Instant HELP available at the terminal 
User-friendly / Interactive 

SAVES MONEY 

Reduces demand on Information 
system personnel 
Eliminates long hours of 
“what if” calculations 
Report and form printing costs 
reduced or eliminated 
Low, one-time investment 

PROVIDES INSTANT REPORTS 

Choice of formats 

Working copies or board-room quality 


FOR DEC COMPUTER SYSTEMS 

• AUTOMATIC CALCULATION 

• EXTENSIVE MATH FUNCTIONS 

ALGEBRAIC 

LOGICAL 

FINANCIAL 

SCIENTIFIC 

USER DEFINED FUNCTIONS 

• TEN KEY NUMERIC DATA ENTRY 

• EXTENSIVE HELP AT TERMINAL 

• INCLUDES SELF TEACHING MODE 

• WORKSHEET CONSOLIDATION 

• VARIETY OF “BOARDROOM” 

QUALITY REPORTS 

• SAVES AND RECALLS WORKSHEETS 

• EXTERNAL FILE INTERFACE 


ON RSTS/E, RSX-11M, VMS. TOPS 10/20 
VT-100 OR MOST EMULATORS 


& 


WHY 
SYSTEMS 
INCORPORATED 


17130 Avondale Way, N.E. 

Redmond, Washington 98052 
(206) 881-2331 

CALL TODAY FOR A DIAL-UP DEMONSTRATION 
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A Data Manager 
in Pascal for DEC 

RDM 

REAL-TIME DATA MANAGER 


Providing for faster 
appiication programming 
with lower maintenance. 


RDM version 2.1 

• A general purpose application generation tool 

• For use with RT-11, RSX-11M, RSTS/E or TSX-PLUS 

• Over 150 Pascal program modules 

• Oregon Software Pascal-1 Compiler 

• Transportable across all the supported operating systems 

• Easy to use Data Dictionary • Report generation tools 

• Input form design facilities • Many other utilities 


INTERACTIVE 

y^i^TECHNOLOGY 

Zalal/incorporated 

1225 Northwest Murray Road • Suite 103 
Portland, Oregon 97229 • Telephone (503) 644-0111 


Poscal-I is a trademark of Oregon Software, Poftlar>d, Oregon. RT-11, RSX-11M, RSTS/E, and 
PDP-11 are trademarks of Digital Equipment Corp.. Maynard. Moss. TSX-Plus is a trademark 
S&H Computer Systems Inc. of Nashville, Tennesee. RDM is the trademark of interactive 
Technology Inc. of PortlarKi. Oregon. 




DEAR 

RSTS 

MAN: 



Send questions to: DEAR RSTS MAN, P.O. Box 
361, Fort Washington, PA 19034-0361. 


DEAR RSTS MAN: 

I have a MICOM error controller that won’t work. 
In fact, It won’t transmit or receive at all. The book 
says something about Data Terminal Ready and 
Request to Send; What do these mean and what 
do I do about them? No Go. 

Dear NO-GO: Some terminals (and error con¬ 
trollers) need certain El A signals (other pins on the 
El A connector) to be held “on” or “high” In order 
to function. These pins can be DTR, CTS, or RTS or 
a combination. A necessary tool in these matters 
is a “break-out box”, sometimes called a “blue 
box”. These devices show you by means of lights 
which pins are “high” and which are not. Most ter¬ 
minals that require these signals, also assert one 
of the leads such as DTR or RTS. What you need to 
do is jumper this “high” pin over to the one or 
more your error controller is expecting to see. In 
reality, you use the error controller to tell the error 
controller to “go ahead”. Most blue boxes have 
jumpers brought out so that it is easy to experi¬ 
ment to find the combination that will work. I have 
used jumpers between pins 4, 8 and 20 to make an 
AJ terminal work. Good luck. 

DEAR RSTS MAN: 

I would like to take this opportunity to express 
my gratitude and appreciation for the help you 
gave me concerning DTR and my problem. It 
worked perfectly and our MICOM error controller 
is finally on-line. 

Best wishes for the New Year! 

David A. Rooks 

Manager of Information Services 

Office Specialists, Boston, MA 02108 

DEAR RSTS MAN: 

HELP!!!! Do you have any information on using 
“Terminal Concentrators’’ (those neato thingles 
that allow a bunch of terminals to come Into one 
port) on RSTS? Will RSTS allow this? It seems it 
would make job administration a slight im¬ 
possibility. Anyone out there doing it who could 
lend a hand???? Thanks!!!! 

Ron Barale, Operations Manager 
Coast Mailing Corp., Sunnyvale, CA 94086 
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TECU sample,.TXT 
*HT$$ 

Flbtl.FIELDl FILE1.FIELD2 FILE1.FIELD3 

FILbl.FIELD4v FILbl.FIELDS FILE1.FIELD6 

FILEl.FIELD? FILEl.FIELDS FILEl.FIELDS 

*EIQUt,RY$$ 

Loading "QUERY.TEC" into Q-reg "Q". 

Type "1UQMQ$S" for instructions. 

*1UUMQS$ 

To use the QUERY macro after loading it into Q-register Q with 
the EIQUERY$ command, simply append an MQ command after your 
substitute command. 


Example: FSpront$print$VMQ$ 


Note: It would behoove you not to exit this macro with ''C because 

Q-registers I, R, 1, and 2 are used and restored on a normal 
exit (either an E command or a search failure) . 

AtLer using the MQ command, QUERY will prompt for one of 
several options. Enter a question mark (?) for the help message. 


*T$$ 

FILbl.FiELDl FILEl.FIELD2 FILEl.FIELD3 

*FSFILE1$FILE2$VMQ$$ 

FILE2.FIELD1 FILEl.FIELD2 FILEl.FIELD3 

FILE2.FIELD1 FILEl.FIELD2 FILEl.FIELD3 


Valid options are: 

Y - Yes, do the substitution. 

N - No, do not do the substitution. 

L - No, do not do the substitution and skip the rest of the line 

R - SuDstitute the rest of the remaining matches 

E - Exit QUERY 

? - Tnis help message 


F1LE2.FIELDl 
>Y 

FILEl.FIELD2 

FILEl.FIELD3 

F1Le 2.FIELDl 

FILE2.FIELD2 

FILEl.FIELD3 

>N 

FILEl.FIELD4 

FILEl.FIELDS 

FILEl.FIELDS 

>L 

FILEl.FIELD? 

FILEl.FIELDS 

FILEl.FIELDS 

>R 

FIec,2.FIELD? 

FILEl.FIELDS 

FILEl.FIELDS 

FILE2.FIELD? 
?SRH Search 
*HT$$ 

FILE2.FIELDS 
failure "FILEl" 

FILEl.FIELDS 

FILE2.FIELDl 

FILE2.FIELD2 

FILEl.FIELD3 

FILEl.FIELD4 

FILEl.FIELDS 

FILEl.FIELDS 

FiLb2.FIELD? 
*EX$$ 

Ready 

FILE2.FIELDS 

FILE2.FIELDS 
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DEC USERS: Stop and think. Our disk systems 
are the only viable storage alternative. . . 




I More reliabihty. We'll provide great alternative solutions—like our Add-On, Non-Stop 
■ Reliability (ANSR) systems. . . or our 160 or 675 Mbyte, SMD-compatible Winchester 
storage drives—for added dependability and increased throughput. 

More flexibihty and floor space. We've eliminated the problem of limited choice. Name 
■ it; you've got it. And our alternative solutions take up much less floor space. 

Faster delivery. We've built our solid reputation on guick delivery. Typically, we can 
■ give DEC users value-packed storage systems in 30 to 45 days ARO. 

Responsive service. We have service centers both in the U.S. and Europe. We offer 
■ 4-hour response to any call within a 50-mile radius of major U.S. cities. And 24 hours/ 
day, 7 days/week service contracts for all key metropolitan areas. 

5 Big money savings. For example, two RM03s with a total capacity of 160 Mbytes cost 
■ $50,000. Three of our 160 Mbyte Winchester drives in support of a DEC VAX-11/780 
give you 480 Mbytes for $42,500. 

For more information about the only viable alternative to DEC data storage systems, contact us today at 
any of the addresses listed below. 


SystemJ^^dustries 


United States: 1855 Barber Lane, Milpitas, CA 95035, (408) 942-1212. 

Europe: System Industries (Europe), System House, Guildford Road, Woking, Surrey, GU22 7QQ, England, (44) 4862 5077, Telex 859124. 
California (714) 851-6289, (213) 822-3161; Colorado (303) 986-1591; Georgia (404) 955-2252; Illinois (312) 948-9330; Massachusetts (617) 695-4022; Michigan (313) 663-4925; 
New Jersey (201) 839-8650; New York (516) 482-6082; New York Metro (212) 785-9300; Ohio (513) 771-0075; Texas (713) 497-7224, (214) 386-8776; 

Virginia (703) 734-9700; Washington (206) 451-8791; West Germany (49) 6102 5464; Sweden (46) 08-63 16 20 
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LINK-TIME INITIALIZATION OF BP2 MAPS 

By Peter Ehrenstrom, Lincoln Standard Enterprises. 2519 W. Peterson Ave., Chicago, IL 60659 


There are several features of the Macro-11 assembler luo 
which can be used to advantage by the BP2 programmer 
with no knowlege of the PDP-11 instruction set. In this ar¬ 
ticle I will describe and give some examples of the use of the 
data storage directives to initialize variables in a BP2 com¬ 
mon or map at link time. 

To begin with, the BP2 compiler generates a PSECT, or 
program section, for each COMMON or MAP. This PSECT is 
given a name and a set of attributes. This can be seen by 
compiling with the /MAC switch. It looks something like 
this: 

.PSECT XAMPLE,RW,D,GBL,REL,OVR 

By using a .PSECT directive in your own macro moduie 
which is identical to the one BP2 produces you can map to 
the same area. That done, all that remains is to fiil that area 
with the desired values. This is done with data storage 
directives. 

We will first consider the .WORD, .BYTE, .FLT2. .FLT4. 
and .ASCII directives. 

The .WORD directive generates successive words of 
data in the object module: 

.WuRD 15. ; Reserves one word and initializes it 

; to decimal 15 

.WuRD 10,11 ; Reserves two words and initializes 

; them to octal 10 and 11 

The .FLT2 and .FLT4 directives accomplish the same 
thing for floating point numbers (.FLT2 for single precision. 

.FLT4 for double): 

.FLT2 7i.05 ; Reserves two words of storaage and 

; initializes them to decimal 75.05 

.FLT4 75.05 ; Reserves four words of storage and 

; initializes them to decimal 75.05 

The .BYTE directive generates successive bytes of 
binary data in the same fashion: 

.BYTE 13.,10. ; Reserves two bytes and initializes 

; them to decimal 13 and 10 

Both the .WORD and .BYTE directives store a value of 
zero if no argument is given. The .FLT2 and .FLT4, on the 
other hand, do not even reserve space if not given an argu¬ 
ment. That is, a zero must be explicitly stated as an argu¬ 
ment if it is desired. 

The .ASCII directive generates a string of ASCII data: 

.ASCII /HELLO/ ; Reserves 5 successive bytes and stores 

; the ASCII string "HELLO" in them 

The following example illustrates the use of some of 
these directives to initialize a simple map. 

First the BP2 program. XAMPLE.B2S 

1 ON ERROR GOTO 0 fc 

& 

! Program ; XAMPLE.B2S & 

1 Programmer : Peter Ehrenstrom & 

! & 

! Simple program to illustrate the use of assembler & 

! directives to initialize a BP2 map & 


PRE-INITIALIZED MAP 


NAP (XXXXXX) 

& 

A%, I This will be set to 10 & 

B, ! This will be set to 20.05 4 

CS - 5% 1 This will be set to "HELLO" 

Next, a portion of the file generated by compiling 
/MAC. XAMPLE.MAC 


.PSECT XXXXXX,RW,D,GBL,REL,OVR 

XXXXXX: 

.PSECT $PDATA 
.WuRD 0 
.WuRD 0 
.WORD 16512 


Next, the MACRO module which will initialize the map, 
XXXXXX.MAC 

.TITLE XXXXXX 

.RADIX 10 ; The default is octal. 

; This isn't necessary, but it's 
7 certainly handy if you prefer 
7 to think in decimal. 

.PSECT XXXXXX,RW,D,GBL,REL,OVR 

XXXXXX:: 

.WuRD 10 7 This is A% 

.PLT2 20.05 7 This is B 

.ASCII /HELLO/ 7 This is C$ 

.END 

Now. compile XAMPLE.B2S without the /MAC switch 
... Assemble XXXXXX with the following command 

MAC XXXXXX-XXXXXX 

Modify the ODL to include XXXXXX.OBJ in the task ... 

.ROOT USER 

USER: .FCTR SY:XAMPLE-XXXXXX-LIBR 

LIBk: .FCTR LB:BP2COM/LB 

.END 

Link, and run it 

RUN XAMPLE 
10 

20.05 

HELLO 

Ready 

Note the fact that the .PSECT directives in 
XAMPLE.MAC and XXXXXX.MAC are identical, as well as 
the one-to-one correspondence between the elements of the 
map and the data storage directives used to initialize them. 

Now then, while using the .WORD, .BYTE, .FLT2. and 
.FLT4 directives in this way is rather straightforward, the 
.ASCII directive is something of a pain because one must 
count the number of characters in the argument to see that 
it is neither longer nor shorter than the corresponding string 
in the map. e.g. in the example both C$ and "HELLO" are 
five bytes long. I will therefore present, without explana¬ 
tion. a macro which will pad the string to the desired length, 
or generate an error at assembly time if the string is already 
too long. One can lift this macro from the example and use it 
as it stands, from the .MACRO to the .ENDM directives in¬ 
clusive. 
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A BP2 map, 

MAP (INiMAP) 


A%, 

B, 

C$ = 10% 
D$ = 15% 


! Initialized to 100% 
I Initialized to .05 
! "STRINGl 
I ■STRING2 


.PSECT INIMAP,RW,D,GBL,REL,OVR 


.WORD 

.FLT4 

PADSTR 

PADSTR 


100 

.05 

10,<STRING1> 

15,<STRING2> 


A% 

B 

CS, padded with 3 spaces 
D$, padded with 8 spaces. 


.END 


And a macro module to initialize it. 


TITLfc EXAMPLE OF STRING PADDING MACRO 
RADIX 10 


.MACRO PADSTR MAXLEN,STRING 

.NCHR STRLEN,STRING 

.IF LT MAXLEN-STRLEN 


.ERROR STRING ; STRING TOO LONG 
.ENDC 

.ASCII /STRING/ 

.REPT MAXLEN-STRLEN 
.ASCII <32> 

.ENDR 

.ENDM 


; Pad STRING to MAXLEN 
; with spaces 

f STRLEN is current length 
; If STRING is already longer 
; than MAXLEN then generate 
; the following error message 

; End of error checking 
; Reserve space for STRING 
; And then fill it to MAXLEN 
; with spaces 
; End of fill 
; End of macro 


Finally, one can see that there is no CALL or other 
reference to the initialization in the BP2 code itseif, so one 
must pay ciose attention to internal documentation, as I 
have tried to show in my examples. 

In the interest of brevity I have neither discussed all of 
the data storage directives nor been as thorough as I might 
have been in my treatment of those I did discuss, but I hope 
that, in conjunction with the MACRO-11 Language 
Reference Manual, these examples can be of use. « 


RSTS/E’S SMALL BUFFERS 

By Timothy P. Hart, Evans Griffiths & Hart, Inc., Lexington, MA 


RSTS/E[i] V7 .0 uses “small buffers” as storage for internal 
management purposes. A small buffer is a 32 byte block of "per¬ 
manently mapped memory,” a segment of the RSTS/E operating 
system. Other components of RSTS compete for space in this per¬ 
manently mapped address space, limiting the total number of small 
buffers. Often the result is a shortage of small buffers with un¬ 
pleasant consequences for the utility of the RSTS system. 

As a rule of thumb, a minimum of 75 free buffers should be 
seen on a SY/F display. A system with less than 30 is likely to be in 
distress. There are a number of symptoms of small buffer starva¬ 
tion. For example, when the number of free buffers falls below a 
certain point (about 40), logins are inhibited; a special error message 
“No buffer space available" results when certain operations, such as 
sending an interjob message or opening a file, are attempted; 1/0 
operations to certain devices are stalled; and deadlocks sometimes 
occur which stall the whole system. 

A small buffer shortage can be alleviated by either increasing 
the number of small buffers, reducing the demand for small buf¬ 
fers, or both. We will discuss both approaches. 

The number of small buffers which can be sysgened is limited 
by address space in permanently mapped monitor memory. One 
way to increase the space available for small buffers is to reduce the 
needs of those system components which are competing for this 
space. These components are listed below: 


component 


rough equivalent small buffers 


device DDB’s 
system-wide logicals 
job slots 
device slots 
statistics package 
unmapped (un-"phased”) 
device drivers 


varies; e.g. about 1.5 per KB 
about .25 per logical 
about .25 per slot 
about .25 per slot 
20 buffers 

depends on size of driver; up to 20 
saved by selecting the phased disk 
driver 


The system itself controls the use of small buffers for 1/0 data 
by limiting the number in use for any particular device when the 
overall system-wide supply is short. The “XBUF” LP driver will not 
use small buffers at all if there is more than 10K of XBUF allocated. 
(However, it is larger than the non-XBUF LP driver, and is per¬ 
manently mapped.) The faster a device can clear its queued data the 
less strain on the small buffer supply — i.e. usually it is better to run 
terminals at the fastest possible output speed. The user can limit 
the number of small buffers used for messages held in queues by 
appropriately setting the buffer quota parameter when declaring a 
message receiver. One small buffer is always used for each message 
in a queue; additional buffers will be used for long messages only if 
XBUF is unallocated (but only up to the declared buffer quota limit). 
One buffer is tied up for the period during which a job is declared as 
a receiver (in addition to those which are used as message queue en¬ 
tries). Small buffers used for FIP buffering are always retrievable 
for other uses by the system when in need; if the system is in 
distress the advantages of FIP directory buffering will be lost; if 
more than 8K of XBUF is allocated, FIP buffering will always be in 
XBUF. 

The more static uses of small buffers are the following: 


job data 
CCLs 

run-time systems 
resident libraries 


extended block locking 
open files 


4 per job 
1 per CCL 
1 per installed RTS 
1 per installed library 
1 to 3 per job using libraries: 

1 if 1 or 2 window used 

2 if 3, 4, or 5 

3 if 6 or 7 

1 per additional locked segment 
if large files option.- 
1 per file plus 

1 per channel on which opened 
without large files option: 

2 per open file 


Small buffers are used by the system dynamically, for example 
as disk queue entries, and are also used relatively statically, for ex¬ 
ample, as storage for CCL definitions. The more dynamic uses are.- 

• I/O data buffers for: KB. LP, PP. PR, CR. XM. 2780 

• queue entries: disk queue. FIP queue 

• interjob (“send-receive") messages 

• FlP-buffering of disk retrieval information 


These more-or-less static uses are vulnerable to conservation ef¬ 
forts, and the most vulnerable of all is the use of small buffers for 
CCL’s. (Among the approaches for saving CCL small buffers is a run¬ 
time system which EGH offers called “J,” which reduces to one the 
number of small buffers used for CCL’s.) 


[IJRSTS/E is a trademark of Digital Equipment Corp. 
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A Column For Tho Advanced RSTS/E User By Steven L Edwards, software Techniques 


Basic-Plus and MACRO 

In this issue we will demonstrate how to call MACRO 
subroutines from Basic-Plus. While this feature is complete¬ 
ly unsupported by DEC. and may not be available in future 
releases of Basic-Plus (not likely), it is useful. 

This feature can give your program access to functions 
which are not available in Basic-Plus. Please note that this 
feature in itself will not breach system security. The MACRO 
code is executed in exactly the same mode as the Basic-Plus 
program. This feature can also be used to re-code functions 
which are too slow or clumsy, coded in Basic-Plus. 

If you look at a Basic-Plus link map. you will see 2 pro¬ 
gram sections, named Ul and UI2. These program sections 
can be overlaid with MACRO code that your program can ac¬ 
cess via sys-call 10 (Ul). and sys-call 13 (UI2). After you have 
assembled the new code, it must be linked into a new Basic- 
Plus run-time system before it can be used. The relevant 
portion of the sysgen control file is included below. 

As a demonstration of this feature. I have implemented 
Ul as a debugging aid to dump the current Basic-Plus pro¬ 
gram to a specified file, and UI2 as a general purpose inter¬ 
face to user written MACRO code. 

Ul — Dump current program 

Executing the code in the Ul program section will dump 
the contents of the currently running Basic-Plus program to 
the specified file. This file can be analyzed by the CUSP BPDA. 
The output of the BPDA program will show the contents of 
all of the variables and buffers. The format of the call is: 

2010 vs • SyS(CHF5(lO*) ♦ *BtK0BC.PHD* ) 

! DUMP TO FILC DEFOBF.PHD 

UI2 — Execute machine code 

Executing the code in the UI2 program section will ex¬ 
ecute the machine code string passed in the sys call. The for¬ 
mat of the call is: 

2010 vs - SYa(CHB$(j3) * CHRSiC) 

♦ CVT%S(SWAP%(5599*)) ♦ CVT9S(SWAP»(-1B208%)) + CVT»S»SHAP%(266%)) 

♦ CVT%S (SWAP! (5599%)) + CVT%$ (SWAP% (2429%) ) ♦ C:VT%S (SWAP% (2b8%) ) 

♦ CVT%S(SWAP%(-30684%)) 

♦ CVT%SISWAP%(135%))) 

) CHANGE OUR SYSTAT NAME TO '?WHAT?' 

1 INVOKE UI2, AND WORD ALIGN FOLLOWING CODE. 

1 'MOV I‘R?WH,8#FIB0B*FQNAN1• 

1 'NOV l*RAT?,8#FIBOB+FQNANl+2' 

I '.NANE' 

! 'RETURN' 

This method of executing machine code is quite 
cumbersome. An alternate method is to link the assembly 
language program, extract the code from the task image 
and then execute it: 

2010 OPEN 'NEWNAN.TSK* FOR INPUT AS FILE 11% 

\ FIELD 11%, 512% AS HCS 
\ GET 11%, RECORD 5% 

\ VS - SYS|CHRSI13%) ♦ CHR$(0%) ♦ HCS) 

I OPEN THE TASK IMAGE FILE. 

1 Field the buffer. 

I BEAD THE CODE (SKIP THE TASK HEADER STUFF). 

I AND DO IT. 

Note that the machine c(Xie string to be executed by 
UI2 must be written as position independent code and ter¬ 
minated by a RETURN (RTS PC). 


Sysqen control file 


SR LINK.SAV 

BASIC/I,01/A/W,BASIC-IN:RTS,DK:$ERR.STB/X/H;tl77776/U;#4000/C 


OI/C — this is your code. 

INsVE 

PA 
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Title 
.TITLE 
. IDENT 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 
.SBTTL 


OI,<BASIC-PLUS ON-IMPLEMENTED SYS CALLS>,01,30-MOV-8i,<SLE> 

Ul BASIC-PLUS UN-IMPLEMENTED SYS CALLS 

*07.001* 

Ul BASIC-PLUS UN-IMPLEMENTED SYS CALLS 


Written by: 
Date: 


STEVEN L. EDWARDS 
30-NOV-81 


Description: IMPLEMENT THE UN-INPLQ(ENTED SYS CALLS 

Copyri9))t (C) 1981 
Software Techniques 
Los Alanitos, CA 90720 

This software is furnisned under a license for use only on a 
single computer system ana may be copied only with tne inclusion 
of the above copyright notice. This soteware, or any other 
copies thereof, may not be ptovldec or otherwise made available 
to any other person except for use on such system luio to one wno 
agrees to these license terms. Tide to and ownersnlp or tne 
software shall at all times remain in Soicware Tewnmques. 

The information in this document is subject to cnange without 
notice and should not be construed as a commitment by Software 
Techniques. 

This software is i 
commitment to Supporl 
writing. 


Calling Format 
Ul 

TENP.0$ - SYS(CHR$(13) * FILENAMES) 
Arguments: 

Name Description 

FILENAMES FILE NAME TO DUMP IMAGt TO. 

UI2 

TEMP.OS - SYS(CHRS(10) ♦ CHRSIO) ♦ MCSj 
Arguments: 

Name Description 


Nooiticatlon History 
Ver/Edit Date 

V7.0-01 30-NOV-81 

Program Description 


Reason (Who) 

Initial conception. 


THIS MODULE IMPLEMENTS TnE UN-IHPLiiMENTED BASIC-PLUS SYS 
CALLS. THE FIRST CALL (SYS 10) DUMPS TnE CURRENT PkOGRAN TO THE 
SPECIFIED FILE. THE SECOND CALL (SYS 13) EXccUiES TnE MACHINE 
LANGUAGE CODE STRING PASSED TO US. 


Assembly instructions: 

MACRO dl - COMHON/P:l, Ul 
Global Symbols 
.Globl UI2, B.4 

Variable Description and Initialixation 


000036 

000200 

000004 


.Psect Ul, RW, I, GBL, REL, OVn 


CHAN 

FATAL 

LENGTH 


> CHKERR 
TSTB 
BEO 
TRAP 


.ENDM 

I 

.Sbttl 


8fFIR0B 

A 

FATAL+l 


SYS CALL 10. 


r CHANNEL 15. 
r FATAL ERROR BIT. 

( OFFSET INTO STRING HEADER. 


} ERROR? 

/ GOOD. 

I LET BASIC HaNDLc. IT. 


107 000000 

108 

109 000000 

110 000014 104040 

111 000016 013702 

000442 

112 000022 


PUSH 

.STAT 

NOV 


Ul, RW, I, GBL, REL, OVR 
<R0,R1,R2,R3,R4,R5> 

8«XRB'fXRLEN,R2 
SETXRB f CLEAR XRB. 

... continued on page 44 


t SAVE THE REGISTERS. 
f GET JOB STATS 
; OLD CORE SHE. 












What Are 

You Doing 
This Weekend? 

If you’re spending this weekend in the computer 
room, think about this: DISKIT, the disk manage¬ 
ment tool kit, can save you hundreds of hours 
of valuable time. 

DISKIT provides all of the tools you need to create 
and manage well-structured disks. Use DISKIT to 
race through backup at 10,000 blocks/minute. 

At the same time, DISKIT will optimize your disks, 
improving your system’s throughput by as much 
as 50 percent* A faster system means happier 
users and more free time for you. 


Want more information? Just tear out the Business 
Reply Card. Or give us a call. You really don’t 
have time not to. 



Software 
Techniques 
Incorporated 

SOFTWARE CONSULTING FOR DEC SYSTEMS 

52^2 Katella Avenue Northbrook St. 

Los Alamitos, CA SOTSO USA Newbury, Berkshire RG131AE UK 

[213) 50^-0^105 [T14) 00&-O533 
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THE CASE FOR NFF 

By Philip G. Anthony. Technical Systems. Fidelity Bank. Philadelphia. PA 


Conventional wisdom in the RSTS community has it 
that the new-files-first (NFF) option for account directories 
represents the height of folly, the path to perdition, and the 
surest way to slow file processing down to a crawl. The 
resulting complexity of directory linkage under NFF. op¬ 
ponents charge, increases the time required for file creation 
and bounces the user all around the directory during re¬ 
trieval. Even DEC. which includes the option in its DSKINT 
procedure, recommends an automatic no’ answer to the op¬ 
tion. Taking the option, declares DEC. will somehow bury 
such frequently used programs as LOGIN irrevocably at the 
bottom of SY:(1.2). 

In fact, the NFF option can speed file processing signifi¬ 
cantly. Careful design of accounts on the system, plus a few 
simple procedures, will almost entirely eliminate the disad¬ 
vantages of NFF while freeing up processing time and in¬ 
creasing throughput. 

Careful design of accounts’ can be defined — with vari¬ 
ations depending on the applications of the system and the 
programming philosophy — as follows: 

• All permanent and long-term data files have their own ac¬ 
count or accounts. If possible, these accounts are located 
on a private disk (which need not be structured NFF). The 
files in question are the major data bases that will be 
opened for input only or for in-place update (Mode 1). 
They may even be extended (Mode 2) as necessary, 
though his leads to a highly fragmented disk structure: 
still, extension retains the existing directory links, adding 
only new retrieval information as required. Because the 
directories don’t change, the question of old or new files 
first is moot. 

• Executable programs in operating modules and their 
source files. These file types again each have their own 
account or accounts. They change more frequently than 
do the data file accounts, but still very slowly: at least, 
one would hope that no more than a couple of pieces of 
operating software need revision each week. Once again, 
because of the infrequency of change, directory order is 
inconsequential. 

• Executive control files, menus, and the other overhead 
files that make the executable programs accessible to the 
users. Another nonvolatile type with its own account. 

• Medium-term files. Topically, they are holding files, con¬ 
taining information to be posted into the main data files 
at the end of a specified period — daily, weekly, monthly, 
quarterly. Shorter-term notes, such as daily files, are 
often kept around for a week or a month before final 
posting into longer-term summary files, which may be 
permanent data storage or other medium-term files. Like 
the others, they have their own account or accounts. 

• Temporary files, work files, and print files. All go into one 
or several accounts that contain no permanent, frequent¬ 
ly accessed files and an absolute minimum of the 
medium-term variety. If there is only one such account, it 
ideally should be the one from which programs are run. 


This permits short-term work space for system utilities, 
such as sorts, without extra lines of code being necessary 
to place the work files elsewhere. If several accounts are 
available for these short-term file types, separating the 
print files from the others is desirable. 

• The less said about program development accounts, the 
better. With a hard-working staff of programmers, direc¬ 
tories to these accounts are going to be a bloody mess no 
matter what directory protocol is chosen. 

The volatile accounts are the ones in which the advan¬ 
tages of placing new files first in the directory are realized. 
In my own experience, more than three quarters of file ac¬ 
cesses in transient-file accounts involve the ten most re¬ 
cently created files. Better than 95 per cent go after one of 
the fifty newest files even in accounts containing queued 
print files. And more than half the files in print and work 
file accounts are deleted within an hour of their creation. It’s 
a rare file in one of these accounts, and probably reflects bad 
programming practice or account management, that stays 
on disk for more than five working days. Because of the 
last-in. first-out character of the temporary and work files. 
LIFO directory ordering speeds processing noticeably. 

Decreasing access overhead to temporary files becomes 
even more important when over-all file handling is ex¬ 
amined. As a class, transient files are likely to be accessed 
more frequently than medium-term and permanent files. 

Once a user enters a data file or an index file, for in¬ 
stance. he is likely to continue using it for a period of several 
minutes to several hours: and under V7.0. the file opening 
time is greatly reduced when somebody else already has the 
file open. The volatile files, on the other hand, are typically 
short. They are usually kept open for much shorter periods, 
and a program is likely to open and close several of them in 
the course of its run. Also, they are single-purpose entities, 
intended for one-user handling. Thus, they are the files on 
the system involving the highest processing overhead and 
most in need of help from a friendly directory structure. 

Medium-term files are most hurt by NFF: in general, 
they are accessed in FIFO order. But on most installations, 
they are not accessed frequently. And several strategies are 
available for speeding their access times if it becomes im¬ 
portant. The most obvious of these is to keep them on a 
private disk not structured NFF. 

If this isn’t an available option, the medium-term data 
can be stored in permanent, random-access files with con¬ 
trol records handling space utilization within the file — in¬ 
termediate files (IMFs). Instead of these files’ being deleted 
at the end of the their useful lives, they are simply zeroed 
out and recycled. Being permanent, they have no directory- 
order problem. 

Another method is to request the files’ being placed at 
the bottom of the directory on file creation (Mode 1024). 
This open-for-output mode overrides the system default and 
defeats NFF locally. 

Fourth. REORDR can be used periodically to sort the 
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medium-term file directory entries in forward order on crea¬ 
tion date. This is probably the least efficient way to handle 
the problem, from the system’s point of view. But it defers 
the inefficiency until users are off the system, covers up any 
programmer forgetfulness, eliminates the need for re¬ 
edit/recompile of existing programs, and throws only a 
minor burden on the overburdened system manager. 

Finally, these files can merely be PIPped to another ac¬ 
count and PIPped back in a preselected order (use a com¬ 
mand file), appending the ’/NE' switch to put the current 
date on. This last method is most applicable to executable- 
code accounts, bringing LOGIN and the like to the top of the 
^ stack. Add /MO:16 for executable code and do a REORDR 

afterward. 

Yes, NFF does require daily reorder of at least all the 
volatile accounts on the system. But anybody who cares 
enough about his system to read an article on directory 
ordering probably uses REORDR every day on his entire disk 
structure already. If he doesn’t, he might want to consider 
it... 

New or old files first, carefully designed account struc¬ 
ture is bound to boost system efficiency. Performance is 
degraded under either protocol if the user has to plow 
through a volatile directory to reach data, programs, or tem¬ 
porary files. At least one of these classes is going to take a 
long time to access — slowing everybody else down as well 
— if all three are lumped together in one account. (I recall a 
payroll module 1 once saw — but that’s too painful even to 
think about.) 

Still, file manipulation represents the single operation 
that does the most to slow a system down. An option that 
( speeds access to the peskiest files on anybody’s system, 

while affecting other files only minimally, will provide more 
processing time for everybody using it. ^ 



RSTS Professional & Computers-R-Digital 
at N.Y. Coliseum, 1981. 


DEC 

PDP-11 & 
LSl-U Users 


Until now, adding a magnetic tape subsystem to Digital 
Equipment's PDP-11 and LSI-11 series computers meant 
costly or custom-built interfaces and integrating 
components from a multiplicity of vendors. It didn't 
always work. 

Now, with IDT's series 1050 magnetic tape and series 3000 
cartridge tape subsystems, adding a cost-effective, high- 
performance data storage and retrieval system to PDP-lls 
and LSI-lls is a simple, uncompromising procedure. 

Innovative Data Technology's tape subsystems are designed 
with compatibility in mind. Our Vi" tape drives use industry- 
standard interfaces and require only one CPU slot for the 
controller card; or, if your card cage is full, IDT will put your 
terminator on the drive, avoiding the cost of an expansion 
chassis. In short, IDT offers complete turnkey systems, 
including tape coupler, formatter and drive. 



DEC TM-11 COMPATIBLE 
TAPE SUBSYSTEM 


100 LOT 
QUANTITIES 


If you have a PDP-11 or LSI-11, you'll want these features 
from Innovative Data Technology's tape subsystems: 

• Single supplier support 

• DEC standard TM-11 software compatibility 

• Single slot connection or controller card 

• Dual mode 800 cpi (NRZI) and 1600 cpi (PE), at 45 ips; 
9-track Read-After-Write for mag tape. 

• 1600 cpi ANSI/EMCA standard for cartridge tape 

• Six-month warranty on complete system 

• Factory installation and training available 

• Attractive pricing 

For complete details about Innovative Data Technology's 
tape subsystems for DEC computers, call or write for a 
complementary descriptive brochure. 

IDT: where innovation puts you ahead 


INNOVATIVE 

DATA 

TECHNOLOGY 

4060 MORENA BLVD. • SAN DIEGO, CA 92117 
(714) 270-3990 • TWX: 910-335-1610 
IDT EAST (703) 759-3003 

DEC, PDP-n and LSI-II are registered trademarks of 
Digital Equipment Corporation 
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TERMINALS FROM TRANSNET 


PER MONTH 

UMOS I4M0$ MMOS 

$105 $ 58 $ 40 


DEC 


PURCHASE PLAN • 12-24 MONTH FULL OWNERSHIP PLAN • 36 MONTH LEASE PLAN 

PURCHASE 

DESCRIPTION PRICE 

LA36 DECwriter II . $1,095 

LA34 DECwriter IV. 

LA34 DECwriter IV Forms Ctrl. 

LA120 DECwriter III KSR. 2,295 

LA120 DECwriter III RO. 2,095 

VT100 CRT DECscope . 1,695 

VT101 CRT DECscope . 1,195 

VT125 CRT Graphics. 3,295 

VT131 CRT DECscope . 1,745 

VT132 CRT DECscope . 1,995 

VnsXAC Personal Computer Option 

TI745 Portable Terminal. 1,595 

TI765 Bubble Memory Terminal 

Tl Insight 10 Terminal. 

TI785 Portable KSR, 120 CPS. 

TI787 Portable KSR, 120 CPS . 

TI810 RO Printer. 1,695 

TI820 KSR Printer. 2,195 

AOM3A CRT Terminal. 

ADM5 CRT Terminal . 

ADM32 CRT Terminal . 1,165 

A0M42 CRT Terminal . 1,995 

DT801 CRT Terminal . 1,695 

DT80 3 CRT Terminal . 1,295 

DT80 5L APL 15 CRT. 2,295 

920 CRT Terminal . 

950 CRT Terminal. 1,075 

Letter Quality, 7715 RO. 2,895 

Letter Quality, 7725 KSR. 3,295 

2030 KSR Printer 30 CPS . 1,195 

2120 KSR Printer 120 CPS . 2,195 

Executive 80 20 . 1,345 

Executive 80 30 . 1,695 

MX-80 F/T Printer. 

MX-100 Printer . 


TEXAS 

INSTRUMENTS 


LEAR SIEGLER 


DATAMEDIA 


TELEVIDEO 


NEC SPINWRITER 


GENERAL ELECTRIC 


HAZELTINE 


EPSON 


995 

95 

53 

36 

1,095 

105 

58 

40 

2,295 

220 

122 

83 

2,095 

200 

112 

75 

1,695 

162 

90 

61 

1,195 

115 

67 

43 

3,295 

315 

185 

119 

1,745 

167 

98 

63 

1,995 

190 

106 

72 

2.395 

230 

128 

86 

1,595 

153 

85 

58 

2,595 

249 

138 

93 

695 

67 

37 

25 

2,395 

230 

128 

86 

2,845 

273 

152 

102 

1,695 

162 

90 

61 

2,195 

211 

117 

80 

595 

57 

34 

22 

645 

62 

36 

24 

1,165 

112 

65 

42 

1,995 

190 

106 

72 

1,695 

162 

90 

61 

1,295 

125 

70 

48 

2,295 

220 

122 

83 

895 

86 

48 

32 

1,075 

103 

57 

39 

2,895 

278 

154 

104 

3,295 

316 

175 

119 

1,195 

115 

67 

43 

2,195 

211 

117 

80 

1,345 

127 

75 

49 

1,695 

162 

90 

61 

745 

71 

42 

27 

895 

86 

48 

32 


FULL OWNERSHIP ARER 12 OR 24 MONTHS • 10% PURCHASE OPTION AFTER 36 MONTHS 


MICROCOMPUTERS 

APPLE • COMMODORE • HP85 • DEC LS111 


ACCESSORIES AND PERIPHERAL EQUIPMENT 

ACOUSTIC COUPLERS » MODEMS. THERMAL PAPER«RIBBONS • INTERFACE MODULES»FLOPPY DISK UNITS 



^ransNetc 


1 ! CORPORATION 

1945 ROUTE 22 • UNION, N.J. 07083 • (201) 688-7800 

TWX 710-985-5485 800-526-4965 OUTSIDE N J. 
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TIPS & TECHNIQUES .. . continued from page 40 


113 000026 

114 000032 

115 000034 

116 000036 

117 000040 

118 000044 

119 000046 

120 

121 000056 


130 000116 

131 000120 

132 000172 

133 000124 


139 000152 


016110 

000004 

005310 

012020 

010310 

104064 


112720 

000004 

012710 

000036 

006302 

010237 

000420 

104000 


072227 

000011 

010210 

012020 

005720 

012710 

000036 

104004 


112720 

000000 

012710 

000036 

104000 


012700 

000402 

012701 

000020 

000407 


NOV 

DEC 

NOV 

NOV 

CALL 

.PSS 

CHKERR 

NOVB 


LENGTH(Rl),(RO) 
(RO) 

(RO)*,(RO)^ 

R3,(R0) 

SETPOB 


NOV 

NOV 

TST 

NOV 


ICREFO,(R0)4 
ICHAN,(RO) 

R2 

R2,#»FIRQB*rQSl2 


R2,(RO) 

(R0)+,(R0)t 

(R0)4 

ICHAN,(RO) 


I length Or FiLbNANE. 

> ADJUST FOR FUN(n'ION CuDc. 

> * * * 

I AuDRESS OF FiLcNANE. 

; CLEAR FIRQB. 

; SCAN THE PxLCNAME. 

; CHECK FOR AN ERROR. 

; CREATE FILE FUNCTION CODb. 
t CHANNEL 15. 


[ CHbCR PUR Am ERROR. 


154 000244 

155 

156 000244 

157 000246 

158 000250 

159 000254 

160 
161 
162 

163 

164 

165 000000 


012700 

000442 

012701 

000007 


SETXRB: PUSH 
NOV 

NOV 


CLR 

SOB 

POP 

RETURN 


170 000012 

171 000026 

172 000032 


032761 I 
000001 
000004 
001401 
200G 
211 


.Psect 
BIT 


<R5,R4,R3,R2,R1,R0> 


I<PQBSIX/2>,R1 

CLEAR 


l<XRBSlZ/2>,Rl 

CLEAR 

(RO)* 

Rl.CLEAR 
<R1,R0> 

SYS CALL 13. 

012, RW, I, GBL, REL, 
ll.LENCnKRl) 


PUSH 

CALL 

JNP 


<R0,R1,R2,R3,R4,R5> 

1(R3) 

RETURN 


FOR BY-i-E CuUNT. 


j CHECK FOR AM ERROR. 


r CHANNEL NUNBER. 


t CHECK FOR AN ERROR. 


[ Size of FlROB IN NURDS. 
I JOIN CuNNON CuDE. 


I SIZE OF XRB IN HuRDS. 

I JOIN CuNNON CuDE. 

ZAP A WORD. 

UNTIL NE ARE DONE. 
RESTORE RO, Rl. 

BACK TO NAINLINE CODE. 


OVR 

I ODD STRING LENGTH? 


I SAVE The registers. 

I CALL THEIR CODE. 

I BACK TO BASIC(S). 


CORRECTION! 


f 


RSTS PROFESSIONAL 

Box361 . Ft.Washington.PA 19034-0361 .(215)542-7008 

□ PAYMENT ENCLOSED for one year’s subscription (6 issues). 

US 3rd class, $35 / Canada & US 1 st class, $50 US / 

A!l other countries air mail. $60. payable in US dollars. 

□ BILL ME for one year’s subscription: 

□ US 3rd class / □ Canada or US 1 st class / □ Other foreign. 


Please send BACK ISSUES circled: 

Vol.1. ^1 

Vol.2. <^3 

Vol.3. «Z 

Vol.4. ^1 

□ $10 per Issue enclosed. 

Vol.2. ^1 

Vol.2. *f4 

Vol.3. *'3 


□ Bill me for $12.50 per issue. 

Vol.2. 

Vol.3. ^1 

Vol.3. »4 


i-l Send me a RSTS PRO 

Tee Shirt - ^6.95 Lll 

0 


(Adult Sizes Only) 


Name ___ 

Address_ 

_Suite_ 

CIty/State/Zip- 

Country-Phone ( )- 

FREE CLASSIFIED AD WITH SUBSCRIPTION!! 

Your first 12 words are absolutely FREE, only $1.00 per word thereafter. 
Use the space provided below. 


David Spencer’s “TTYSET Optional Patch for VT100 Width Changes.” which 
appeared in the last issue of the RSTS PROFESSIONAL, was printed with two 
lines missing from the patch to the TTYSET program. Following is a reprint 
highlighting the missing lines. [We apologize to David and to our readers.] 

•G/2/V<cr> 

21 <tab><tab>PROGRAM<tab><tab>: TTYSET.BAS<cr> 

* H/1040< tab>/V< cr> 

1040<tab>G0T0 1530 IF CS = -HELP” 8i<cr> 

•l<cr> 

WIDTH% = 0% a<cr> 

<tab> \ <esc> 

*V<cr> 

<tab> \ GOTO 1530 IFC$ = "HELP ” &<cr> 

•H/1240<tab>/V<cr> 

1240<tab>G0SUB 12100 a<cr> 

•Al<cr> 

<tab> \ WIDTH% = V% a<cr> 

<esc> 

*V<cr> 

<tab> \ IF E% = 0% AND V%>1% AND V%<256% THEN a<cr> 

•H/1430<tab>/V<cr> 

1430<tab>G0T0 1500 UNLESS LEN(F$) a<cr> 

•0AI<cr> 

1425<tab>M%(4%) = ASCII(MID(SYS(CHR$(6%) + CHR$(9%)).2%.1%))/2% a<cr> 
<tab><tab><tab>IF M%(4%) = 255% a<CT> 

<tab> \ IF WIDTH% = 81% AND M%(9%) = 255% THEN a<cr> 

<tab><tab>C1$ = SYS(CHR$(6%) + CHR$(-5%)-fCHR$(M%(4%)) a<cr> 

<tab><tab> + CHR$(155%) + "<" + CHR$(155%) + TTSI" + CHR$(155%)•(TZI’) a<CT> 

<tab><tab>l GET KB GET OUR OWN TO SET UP COLUMN CHANGE FOR VT100 a<cr> 
<tab><tab>! IF WE HAVE XON AND WIDTH OF 80 THEN a<cr> 

<tab><tab>! BECOME VTIOO, SWITCH TO 80 COLUMNS. BECOME VT52 AGAIN a<cr> 
<cr> 

1427<tab>IF WIDTH% = 133% AND M%(9%) = 255% THEN a<cr> 

<tab><tab>C1$ = SYS(CHR$(6%) + CHR$(-5%)-»-CHR$(M%(4%)) a<CT> 

<tab><tab> + CHR${155%) + “<"CHR$(155%) + "ITSh" + CHR$(155%) + “1721 ”) a<cr> 

<tab><tab>I IF WE HAVE XON AND WIDTH OF 132 THEN a<cr> 

<tab><tab>I BECOME VTIOO, SWITCH TO 132 COLUMNS. BECOME VT52 AGAIN a<cr> 
<cr> 

<esc> 

•V<cr> 

1430<tab>G0T0 1500 UNLESS LEN{F$) a<cr> 

•EX<cr> t 


V4.1 
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HOW DO YOU READ 
A RSTS/E DISK STRUCTURE? 

By Michael H. Koplitz, 


There are many articles printed whose topic is about 
the RSTS/E disk structure. These articles generally discuss 
what the basic entries are in the disk structure, but never 
how to write the algorithms necessary to read the disk 
structure. There are several ways to read the RSTS/E disk 
structure, but only one way will be addressed. It is assumed 
that the reader has some basic understanding about the 
disk structure. Figure A gives the RSTS/E disk structure in¬ 
dicating what all the entries are. 

The MFD (master file directory) and UFD (user file direc¬ 
tory) are opened in the same manner. They are opened as 
virtual arrays dimensioned MFD%(3583%.7%) and 
UFD%(3583%.7%). The algorithms will be written in 
BASIC-PLUS, so an understanding of it will also be assumed. 
The open statement for the MFD is as follows: 

OPEN -[l.t] ' + DEVICES FOR INPUT AS FILE •X%. MODE 8192% 

The variable DEVICE$ is the device to inspect. MODE 8192% 
is for read only mode. The UFD open statement is as follows: 

OPEN ACCOUNTS FOR INPUT AS FILE •Y%. MODE 8192% 

Where the variable ACCOUNT$ is the account to inspect. 

The MFD label entry words are MFD%(0%.X%) where 
X% = 0% to 7%. Therefore: 

PCS = MFD%(0%.4%) 

STATUS = MFD%(0%.S%) 

PACK.IDS S RADS(MFD%(0%.6%)) + RADS(MFD%(0%.7%)) 

All disk directory links are of the same format: 
bits 0 — 3 flags 
bits 4 — 8 entry offset within block 
bits 9 — 11 offset into FDCM 
bits 12—15 block offset within cluster 
The link is a combination of the offsets. The following func¬ 
tion is an algorithm to retrieve the link and put it into a for¬ 
mat usable in the array. 

DEF FNOET.LINK%(LINK%) 

CL0.MASK% = 7% * 512% 

ENO.MASK% = 31% • 16% 

UL.BLO% = (SWAP%(UNK%) AND 240%) ’ 2% 

UL.ENO% = (LiNK% AND EN0.MASK%)/16% 

FNGET.LINK% = UL.BLO% + ULCLO% + UL.ENO% 

FNEND 

To get the link to the first MFD name entry: 

NEXT.MFD% = FNGET.LINK%(MFD%(0%.0%)) 

The value of NEXT.MFD% is the row index into the MFD% 
array for the first MFD name entry. Therefore the password 
of the first MFD name entry is: 

PASSWORDS = RAD$(MFD%(NEXT.MFD%.2%)) 

+ RAD$(MFD%(NEXT.MFD%.3%)) 

The project-programmer number is: 

PR0J% = SWAP%(MFD%(NEXT.MFD%.1%)) AND 2SS% 

PR0C% = MFD%(NEXT.MFD%.1%) AND 2SS% 


The status byte, protection code, access count are: 

STATUS% = MFD%{NEXT.MFD%.4%) AND 255% 
PR0T.C0DE% = SWAP%(MFD%(NEXT.MFD%.4%)) 
AND 255% 

ACCESS% = MFD%{NEXT.MFD%.5%) 

The starting UFD cluster is in DCN form, it is: 

UFD.CLUSTER = MFD%(NEXT.MFD%.7%) 

The following algorithm converts the DCN to a physical 
cluster number: 

DEVICE.CLUSTER = ((DCN -1 ) • DCS)/PCS 

Where DCN is the device cluster number (a positive value). 
DCS is the disk cluster size (dependent on the hardware). 
PCS is the pack cluster size from the MFD label entry. To get 
a positive value for the DCN. if the array value is negative, 
the following function can be used to convert the integer in¬ 
to a positive number: 

DEF FNPOS(NEG%) = 6SS3S • NEG% 

Then: 

DCN = FNPOS(DCN) IF DCN < 0% 

The links in the MFD name entry can be found by using the 
FNGET.LINK function already described. When the function 
returns a zero, it is indicating that there are not any more 
entries of that kind. 

The following statement retrieves the accounting entry 

link: 

LINK.TO.ACCOUNTING% = FNGET.LINK%(MFD%(NEXT.MFD%.6%)) 

Then the words of the accounting entry are as follows: 

LSB.CPU.TIME = MFD%(LINK.T0.ACC0UNTING%.1%) 

CONNECT.TIME = MFD%(LINK.TO.ACCOUNTING%.2%) 

LSB.KCT = MFD%(LINK.TO.ACCOUNTING%.3%) 

DEVICE.TIME = MFD%(UNK.T0.ACC0UNTING%.4%) 

MSB.CPU = 16384% * (SWAP%(MFD%(LINK.T0.ACC0UNTING%.5%)) AND 127%) 
MSB.KCT = 65535 * (MFD%(LINK.T0.ACC0UNTING%.5%) AND 511%) 

QUOTA = MFD%(LINK.T0.ACC0UNTING%.6%) 

UFD.CLUSTER = MFD%(LINK.T0.ACC0UNTING%.7%) 

Then convert any of the values if they are negative by calling 
the FNPOS function. Once this is accomplished the following 
statements combine the LSB (least significant byte) and 
MSB (most significant byte). 

CPU.TIME = MSB.CPU + LSB.CPU 
KCT = MSB.KCT + LSB.KCT 

At this point all of the MFD information about an ac¬ 
count has been gathered. Below is a simple procedure (in 
pseudo code) to read the MFD name entries. 

MFD.UNK% = MFD%(0%.0%) 

DO WHILE MFD.LINK% <> 0% 

MFD.LINK% = FNGET.L1NK%(MFD.LINK%.0%) 

IF MFD.LINK% <> 0% 

THEN do your procedure 
ENDIF 
ENDDO 
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Now that the MFD has been examined, the UFD will be 
examined. Several of the algorithms defined for the MFD ap¬ 
ply to the UFD. The UFD label entry words are 
UFD%(0%,0%) through UFD%(0%,7%). The words in the 
UFD label entry are: 

UFD.LINK% = FNGET.LINK%{UFD%(0%.0%)) 

PROJECT.NUMBER% = SWAP%(UFD%(0%.6%)) AND 255% 
PROGRAMMER.NUMBER% = UFD%(0%.6%) AND 255% 

The link (UFD.L1NK%) is to the first UFD name entry. The 
words of the UFD name entry are as follows: 

UFD.NEXT.LINK% = FNGET.LINK%(UFD%(0%.0%)) 

FILENAMES = RAD$(UFD%(UFD.UNK%.1 %)) 

+ RAD$(UFD%(UFD.LINK%.2%)) 

EXTENSIONS = RADS(UFD%(UFD.UNK%.3%)) 

PROTECTION.CODES = SWAP%(UFD%(UFD.UNK%.4%)) AND 255% 

STATUS% = UFD%(UFD.LINK%.4%) AND 255% 

ACCESS.COUNT = UFD%(UFD.UNK%.5%) 

ACCOUNTING.ENTRY.LINK% = FNGET.LINK%(UFD%(UFD.LINK%.6%)) 
RETRIEVAL.ENTRY.UNK% = FNGET.LINK%(UFD%(UFD.LINK%.7%)) 

The links have the same structure as in the MFD. The value re¬ 
turned by FNGET.LINK is the row index into the UFD array. 

The words to the accounting entry of the UFD are as 
follows: 

LINK.TO.ATTRIBUTE% = FNGET.LINK(UFD%(ACCOUNTING.ENTRY.UNK%.0%)) 

DATE.LAST ACCESSS = DATE(UFD%(ACCOUNTING.ENTRY.LINK%.1 %)) 

FILE.SIZE = UFD%(ACCOUNTING.ENTRY.LINK%.2%) 

DATE.OF.CREATIONS = DATES(UFD%(ACCOUNTING.ENTRY.LINK%.3%)) 
TIME.OF.CREATIONS = TIMES(UFD%{ACC0UNTING.ENTRY.LINK%.4%)) 
RUNTIME.SYSTEMS = RADS{UFD%(ACCOUNTING.ENTRY.LINK%.5%)) 

+ RAD$(UFD%(ACCOUNTING.ENTRY.LINK%.6%)) 
FILE.CLUSTERSIZE = UFD%(ACCOUNTING.ENTRY.LINK%.7%) 

The attribute entry words are expressed as follows: 

LINK.TO.SECOND.ATTRIBUTE% = FNGET.LINK(UFD%(ATTRIBUTE.ENTRY%.0%)) 
FILE.ORGANIZATION% = UFD%{ATTRIBUTE.ENTRY%.1 %) 

RECORD.SIZE% = UFD%(ATTRIBUTE.ENTRY%.2%) 

HIGHEST.VIRTUAL.BLOCK = UFD%(ATTRIBUTE.ENTRY%.4%) 

EOF.BLOCK% = UFD%(ATTRIBUTE.ENTRY%.6%) 

OFFSET.INTO.EOF = UFD%(ATTRIBUTE.ENTRY%.7%) 

These values are used by RMS (record management 
services). The following algorithm evaluates the file 
organization word: 

PRINT.CONTROL% = SWAP%(FILE.ORGANIZATION%) AND 127% 

PRINT.CONTROLS = "FORTRAN" IF PRINT.CONTROL% = 1% 

PRINT.CONTROLS = "CARRIAGE RETURN" IF PRINT.CONTROL% = 2% 
PRINT.CONTROLS = "UNUSED" IF PRINT.CONTROL% = 4% 

PRINT.CONTROLS = "DOES NOT SPAN BLOCKS" 

IF PRINT.CONTROL% = 10% 

FILE.ORG% = FILE.ORGANIZATION% AND 120% 

FILE.ORGS = "SEQUENTIAL" IF FILE.ORG% = 0% 

FILE.ORGS = "RELATIVE" IF FILE.ORG% = 1% 

FILE.ORGS = "INDEXED" IF FILE.ORG% = 2% 

RECORD.FORMAT% = FILE.ORGANIZATION% AND 9% 

RECORD.FORMATS = "UNDEFINED" IF RECORD.FORMAT% = 0% 

RECORD.FORMATS = "FIXED" IF RECORD.FORMAT% = 1% 

RECORD.FORMATS = "VARIABLE" IF RECORD.FORMAT% = 2% 

RECORD.FORMATS = "VFC" IF RECORD.FORMAT% = 3% 

RECORD.FORMATS = "STREAM" IF RECORD.FORMAT% = 4% 

The second file attribute entry is as follows: 

BUCKET.SIZE% = UFD%(LINK.T0.SEC0ND.ATTRIBUTE%.1 %) 

MAX.LENGTH.RECORD.RMS = UFD%(LINK.T0.SEC0ND.ATTRIBUTE%.2%) 

The following procedure will read all of the name entries in 
the UFD (written in pseudo code) 

UFD.LINK% = UFD%{0%.0%) 

DO WHILE UFD.LINK% <> 0% 

UFD.LINK% = FNGET.LINK%(UFD.LINK%.0%) 

IF UFD.LINK% <> 0% 

THEN do your procedure 
ENDIF 
ENDDO 

The last part of the UFD are the retrieval entries: 

RETRIEVAL.ENTRY.NEXT% = FNCET.LINK(UFD%(RETRIEVAL.ENTRY.UNK%.0%)) 
DEVICE.CLUSTERS% = UFD%(RETRIEVAL.ENTRY%.Z%) 


Where Z% ranges from 1 % to 7%. If a retrieval entry word 
is zero then there are not any more entries. If the retrieval 
link is zero then there are not any more retrieval entries. 

Below is a procedure (in pseudo code) to print the 
retrieval entries (note that the retrieval entry device clusters 
are in DCN form): 

NEXT% = FNGET.LINK(UFD%(UFD.LINK%.7%)) 

IF NEXT% = 0% THEN FLAG% = 1% 

DO WHILE FLAG = 0% 

X% = 1% 

DO WHILE UFD%(NEXT%.X%) 5* 0% OR X% < 8% 

OUTPUT FNPOS(UFD%(NEXT%.X%)) IF UFD%(NEXT%.X%) < 0% 

OUTPUT UFD%{NEXT%.X%) IF UFD%(NEXT%.X%) > 0% 

X% = X% + 1% 

ENDDO 

NEXT% = FNGET.LINK(UFD%{NEXT%.0%)) 

IF NEXT% = 0% THEN FLAG% = 1% 

ENDDO 

Now that the mechanics of the RSTS/E disk structure is 
understood a full report can be produced of all the files on a 
disk. The following program illustrates the kind of report 
that can be produced. 


LINK ! 


-1 ! 


0 ! 


0 ! 


PCS ! 


STATUS ! 


PACK- I 


lU 1 


MFD LABEL 
ENTRY 


LINK ! 


-1 ! 


0 


0 1 


0 ! 


0 ! 


PkOJ 1 PKOG! 


"UFD" 1 


UFD LAbci. 
ENTRY 


RSTS/E DISK STRUCTURE 

(Fiqure A) 

ILINK TO NEXT ENTRY 1 

1 LINK (ALWAYS ZERO) 

IPROG NUM IPROJ NUM! 

! LSB OF ACCUM. CPU TIME 

! PASSWORD I 

lACCUM. CONNECT TIME MIN. 

! IN RADIX-50 ! 

! LSB OF ACCUM. KCT 

IPROT CODE I STATUS ! 

! ACCUM. DEVICE TIME 

! ACCESS COUNT ! 

! MSB CPU ! MSB KCT 

ILINK TO ACCOUNTING! 

! DISK QUOTA IN BLOCKS 

1 START UFD CLUSTER 1 

I UFD CLUSTERSIZE 


MFD NAME MFD ACCOUNTING 

ENTRY ENTRY 


ILINK TO NEXT NAME 1 

ILINK TO ATTRIBUTES! 

1 FILENAME 1 

! DATE LAST ACCESS ! 

! IN RADIX-50 1 

1 FILE SIZE ! 

(EXTENSION (RAD-50)! 

1 DATE OF CREATION ! 

! PROT ! STATUS 1 

1 TIME OF CREATION ! 

! ACCESS COUNT 1 

! RUN-TIME SYSTEM ! 

ILINK TO ACCOUNTING! 

! IN RADIX-50 ! 

ILINK TO RETRIEVAL ! 

I FILE CLUSTERSIZE 1 

UFD NAME 

UFD ACCOUNTING 

ENTRY 

ENTRY 


ILINK TO 2ND ATTRIB! 

1INTERNAL FILE ORG I 

1 RECORD SIZE ! 

1 0 1 

IHIGH VIRTUAL BLOCK I 

1 0 ! 

1 EOF BLOCK NUMBER 1 

1 OFFSET INTO EOF I 

UFD FIRST ATTRIBUTE 
ENTRY 


FUTURE EXPANSION 
BUCKET SIZE 
MAX LENGTH OF REC. 


UFD SECOND ATTRIBUTE 
ENTRY 


LINK NEXT RETREIVAL 
DCN 


DCN 


DCN 


DCN 

DCN 

DCN 

DCN 

RETRIEVAL ENTRY 
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RSTS/E SOFTWARE PACKAGES 


■ KDSS, a multi-terminal key-to-disk data 
entry system. (Also available for RSX-11M.) 

■ TAM, a multi-terminal screen-handling 
facility for transaction-processing applica¬ 
tions. (Also available for RSX-11M.) 

■ FSORT3, a very fast sort. Directly sorts 
RSTS/E files containing up to 16 million 
keys or records. Up to 70 times as fast as 
the RSTS-11 Sort package in CPU time. 

■ SELECT, a convenient, very quick package 
for extracting records that meet user-speci¬ 
fied selection criteria. 

■ BSC/DV, a device driver for the DEC DV11 
synchronous multiplexer that handles most 
bisynchronous protocols. 


■ COLINK, a package that links two RSTS/E 
systems together using DMCIIs. Supports 
file transfers, virtual terminals, and across-the- 
link task communication. 

■ DIALUP, a package that uses an asynchro¬ 
nous terminal line to link a local RSTS/E 
system to a remote computer system. Sup¬ 
ports file transfers, virtual terminals, and 
dial-out through a DN11. 

(The performance-critical portions of the first 
five packages are implemented in assembly 
language for efficiency.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 
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03-Dec-81 12:57 


(11,11) UFD.BAS 


Paqe 1 


001 

\!* 

\!* 

\!* 

\1* 

\!* 

\i* 

\1* 

\l*- 


ea.end 

THIS PROGRAM WAS WRITTEN BY M H KOPLITZ, SYSTEMS MANAGER, 


THIS PROGRAM WluL GIVE A FULL ACCOUNT REPORT OF ANY USER 
INCLUDING ALL MFD, AND UFD INFORMATION. 


010 DIM fl%,MFD%(3583%,7%) 

\ DIM #2%,UFD%(3583%,7%) 

\ XS - SyS(CHRS(6%)+CHR$(-7%)) 

\ DCS% = 8% 


020 

030 

\ 


ON ERROR GOTO 32000 

PRINT "UFD VI.0 Allis-Chalmers 

■ Full report on an account" 

PRINT 


!ERROR FLAGGING SET UP 


!PRINT BANNER. 


040 INPUT "Account number";PROJ%,PROG% 

\ input "Device<SY:>";DEVICE$ 

\ INPUT "Output to <KB:>";OUTPUT.FILE$ lASK NECESSARY QUESTIONS 


050 OPEN "$ACCT.SYS" FOR INPUT AS FILE #11% 

\ DEVICE$ * "SY:" IF DEVICES » "" 

\ OUTPUT.FILES = "KB:" IF OUTPUT.FILES « "" 

\ CS% - 16% 

\ OPEN OUTPUT.FILES FOR OUTPUT AS FILE #10% 

\ lOPEN SACCT.SYS FOR INPUT 

lOPEN OUTPUT.FILES FOR OUTPUT. 


060 INPUT 111%,A.PROJ%,A.PROG%,PASSWORDS, 

A.UFD%,A.QUOTA%,A.NAME S 
\ GOTO 070 IF A.PROJ% * PROJ% 

AND A.PROG% » PROG% 

\ GOTO 060 I READ ACCT.SYS UNTIL MATCH. 

070 GuSUB 25000 

08U OPEN "(1,1)"+DEVICES 

FOR INPUT AS FILE #1%, 

MODE 8192% lOPEN THE MFD READ ONLY. 

090 GOSUB 26000 

\ PRINT #10% 

\ GOSUB 26000 

\ PRINT #10%,"System Pack ID: "; 

RADS(MFD%(0%,6%)); 

RADS{MFD%(0%,7%)); 

\ MFD.STATUS% = MFD%(0%,5%) 

\ PCS% « MFD%(0%,4%) 

\ PRINT #10%,TAB(30%);"Date ot last write"; 

IF MFD.STATUS% AND 2048% 

\ PRINT #10%,TAB(50%);"New files first"; 


IF MFD.STATUS% AND 512% 

\ PkINT #10%,TAB(65%);"Pack cluster size: "; 

PCS% 

\ PRINT #10% 

\ PkINT #10% IDISPLAY PACK INFORMATION 

100 LINK% - MFD%(0%,0%) 

\ GOSUB 15000 

\ MKD.LiNK% - LINK% IGET FIRST NAME ENTRY, GIVE 

1 VALUE OF ARRAY INTO L1NK% 

1 THEN RETURNED LINK% IS 
1 INDEX INTO ARRAY. 

110 MFD.PROJ% » SWAP%(MFD%(MFD.LINK%,1%)) 

AND 255% 

\ MFD.PROG% » MFD%(MFD.LINK%,1%) AND 255% 

\ GuTO 130 IF MFD.PROJ% » PROJ% 

AND MFD.PROG% - PROG% 

\ LINK% = MFD%(MFD.LINK%,0%) 

\ GUTO 120 IF LINK% - 0% 

\ GOSUB 15000 

112 MFD.LINK% « LINK% 

\ GOTO 110 ISEE IF WE HAVE MFD ENTRY 

1 FOR THIS ACCOUNT, IF NOT 
I KEEP LOOKING UNTIL We GET 
! IT. 

120 PRINT "?Can not find account" 

\ GOTO 32767 lERROR, CAN'T FlND ACCOUNT ON 

1 MFD. 

130 LINK% = MFD%(MFD.LINK%,6%) 

\ GOSUB 15000 

\ UAA.LiimK% - LINK% IGET ACCOUNTING ENTRY LINK. 

140 GOSUB 26000 

\ PRINT #10%,"UFD cluster";TAB(15%); 

"CPU Time";TAB{25%);"KCT"; 

TAB(35%);"Device";TAB(45%) 

"Quota";TAB(55%);"Connect" 

\ GOSUB 26000 

\ PRINT #10%,TAB(5%);"-"; 

TAB(15%);STRINGS(8%,45%); 

TAB(25%);STRINGS(8%,45%); 

TAB(35%);STRINGS(8%,45%); 

TAB(45%);STRINGS(8%,45%); 

TAB(55%);STRINGS(8%,45%) 

\ UFD.CLUSTER * FNUSI(MFD%(MFD.LINK%,7%)) 

N MCPU = FNUSI(MFD%(UAA.LINK%,1%)) 

+ 16384*(SWAP%(MFD%(UAA.LINK%,5%)) 

AND 127%) 

\ MKCT = FNUSI(MFD%(UAA.LINK%,3%)) 

+ 65535*(MFD%(UAA.LINK%,5%) AND 511%) 

\ MDEV = FNUSI(MFD%(UAA.LINK%,4%)) 

\ MDPER = FNUSI(MFD%(UAA.LINK%,6%) ) 

\ MCON = FNUSI(MFD%(UAA.LINK%,2%)) 

\ GOSUB 26000 


... continued on page 59 
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USER-11 is a comprehensive 
applications development 
facility for the DEC RSTS 
operating environment. 
Dozens of integrated 
programs harness RSTS’s 
power for unparalleled 
productivity and performance 
in constructing on-line and 
batch application systems. 

PRODUCTIVITY... 

A MATTER OF TIME. 
More than a data manage¬ 
ment System, USER-11 
features common-function 
programs that permit 
numerous applications to be 
installed without writing a 
single line of code. Complete 
building blocks and interfaces 
are provided for those 
remaining applications 
requiring custom work. 

PERFORMANCE... 

SIMPLY INCREDIBLE. 

USER-11 combines 
advanced BASIC and 
MACRO coding techniques 
with ultra-efficient file 
accessing mechanisms to 
optimize application system 
performance. 


RELIABILITY... 

A PROVEN FACT. 

USER-11 is currently 
installed on hundreds of time¬ 
sharing systems world-wide 
with a reliability record that 
users repeatedly praise. All 
software is exhaustively 
tested and benchmarked prior 
to any distribution release. 

SECURITY... 

MORE THAN RSTS. 
USER-11 incorporates a 
unique MENU system which 
flexibly and securely controls 
all processes. Secondary, 
encoded security databases 
are provided for each project. 
A special Run Time System is 
invoked to prevent accessing 
the RSTS ready state, unless 
the software developer 
desires this for the user. 

STANDARDIZATION... 

A BYPRODUCT. 

All USER-11 generated 
packages employ program¬ 
ming and documentation 
conventions which enhance 
compatibility, readability, 
and maintainability. 

ADAPTABILITY... 

NO PROBLEM. 

USER-11 programs are 
dictionary and parameter 
driven throughout. Files can 
be restructured without 
program modifications. 

CIRCLE 30 ON READER CARD 


DOCUMENTATION... o 
GOOD AND PLENTIFUL. 
USER-11 features a wealth of 
easy-to-follow documen¬ 
tation. An extensive on-line 
“/HELP” facility is at 
software developer and user 
fingertips. All documentation 
is maintained and distributed 
on your system’s compatible 
media. 

TRAINING...ALL KINDS. 

USER-11 training courses are 
held frequently with instruc¬ 
tional programs to suit your 
need—beginner to expert. 

FEATURES...ON AND ON. 
USER-11 includes virtually 
every facility needed to 
quickly construct high 
performance management 
applications—nothing else is 
required. If you find this hard 
to believe or would like more 
information, contact us; we 
will furnish you with solid 
user proof! 


7 ^ 







u 

S 

1 

a 


__ 

• 

2 

s 

• 



North County 
Computer Services, Inc. 

2235 Meyers Ave. 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 

DEC and RSTS are registered trade¬ 
marks of Digital Equipment Corporation. 

(g) Copyright NCCS 
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nUTOMnT€D PROGRAMMING 
is the better uuov 


CO0OL PROGRAM G€N€RRTION 

for PDP-11/RSTS-E/RSX11/IAS*... VAX/VMS*.. .DEC-20/TOPS-20* 

Proven and demonstrable increases of up to 20:1 in high-quality programming productivity 
have been achieved with SB-5,^ with up to 98% automation of the coding effort. 


SB-5 produces 100% source COBOL code for business app¬ 
lications. . plus 100% accurate system, program, and oper¬ 
ating documentation.. .the highest levels of performance 
obtainable from any automated programming system. 

SB-5 ... The Better UJov 


• Maximum Productivity 

• Highest Quality Results 

• Shortest Project Schedules 

• Lowest Project Costs 

• Ease of Operation 


• Easily Maintained Software 

• Automatically Produced 
Documentation 

• Application Flexibility 

• System Portability 


^\ 1971 - 



For a complete demonstration, 
or more information, 
write or phone... 


Field-Proven 

COBOL 

ACCOUNTING 

PACKAGES 

ACCOUNTS PAYABLE 
ACCOUNTS RECEIVABLE 
PAYROLL 
GENERAL LEDGER 

• Stand-alone or integrated modules 
e Maximum performance capabilities 

• Avaiiable off-the-shelf 

e Produced with BCC's SB-5 
CIRCLE 95 ON READER CARD 


BUSINESS CONTROLS CORPORATION 

507 Boulevard, Elmwood Park, N.J. 07407 201/791-7661 

^Trademarks of Diqital Equipment Corporation 


CIRCLE 96 ON READER CARD 
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□ Writing Structured Programs in VAX-11 BASIC -_ 
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WRITING STRUCTURED 
PROGRAMS IN 
VAX-11 BASIC 

By A1 Cini, Computer Methods Corporation 


A FEW THOUGHTS ON SOFTWARE STANDARDS 

Despite supervisors’ and managers’ good intentions, software 
standards are often ridiculed, resented, and largely ignored by pro¬ 
grammers. The legendary rebelliousness of coders notwithstanding, 
the standards themselves and the way they are introduced are 
usually to blame. 

Most programming standards are shallow, arbitrary collections 
of narrowly devised rules aimed at uniformity of style rather than 
good programs. They tend to recognize neatness (indentation, com¬ 
ments, spacing) to the exclusion of quality (organization, structure, 
modularity). Of course, neatness (face validity) is an important first 
impression of credibility, but neat programs are not necessarily 
good programs. Many shops have devised a program or two which 
take messy code and clean it up to conform with local standards. 
Can we really believe that something as elusive as quality software 
is so simple to fabricate? 

“Standard" paradoxically implies both minimally acceptable 
mediocrity and an ideal worth working toward. To inspire the latter 
rather than settle for the former, we need to look for principles 
which promote quality programming in substance as well as style, 
and to present those principles in an educational rather than 
legislative way. When they recognize that such standards will really 
help them do a better job, programmers will police conformance in 
themselves and their colleagues, and develop their own unique style 
of workmanship within them. 

LEVELS OF STANDARDIZATION 

Programming standards can be devised to guide software 
engineering at four levels: 

• Documentation. Documentation standards govern the cosmetic 
characteristics of programs, including spacing, indentation, and 
commenting. These standards are sometimes extended to in¬ 
clude the selection of variable names and statement labels; in 
BASIC dialects, some documentation standards to control the 
use of line numbers are frequently adopted to avoid conflicts be¬ 
tween a “main ” program segment and source components 
APPENDed from a library. 

• Implementation. At the implementation level, programming 
standards prescribe the organization of language elements. 
Structured programming, which dictates rules for branching 
within a program, is an implementation-level standard. 

• Design. Standards for software design govern the way in which 
programs and program components are combined to form 
systems. 

• Analysis. Specific procedures for the development of software 
specifications from information provided by users are recom¬ 
mended by analysis-level standards. 

This article will present documentation, implementation, and 
some design standards for VAX-11 BASIC programmers. 

VAX-11 BASIC: A BRIEF INTRODUCTION 

VAX-11 BASIC is the latest in a series of BASlCoid languages 
developed by DEC for use on its VAX-11 computer family under the 
VMS operating system. The fact that it isn’t called "BASIC-PLUS-3” 
misleads us to believe that it owes little to its familiar PDP-11 -based 
predecessors: on the contrary. VAX-11 BASIC is what you might get 
if you crossed the flexibility and "programmer friendliness" of the 
BASIC-PLUS interpreter with the broadened capabilities and im¬ 
proved performance of the BASIC-PLUS-2 compiler. While VAX-11 
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BASIC and VMS offer some very unique capabilities of their own, 
the syntax of the language is much the same and is. for the most 
part, upward-compatible from the PDP-11. 

We can’t detail all of the compatibility issues in this article, but 
to help RSTS readers get a sense of the language, we will discuss 
some of the major differences which make programming VAX-11 
BASIC a special experience. The example program at the end of this 
article will demonstrate many of these differences and features. 

DEF/FNEND BLOCKS 

VAX-11 BASIC won’t tolerate branches into and out of multi- 
line functions. Any GOTOs or GOSUBs contained inside a function 
must be to line numbers also contained within that function. Like¬ 
wise. ON ERROR GO TO statements within functions must name 
locally contained statements as their targets. 

Error handling within a function is local to the function in 
VAX-11 BASIC. When the function exits, any previously established 
error handling is reactivated. The following program yields these re¬ 
sults in VAX-11 BASIC: 

LISTNH 

900 
910 
1000 
1010 
1020 
1030 

1090 

1091 

1092 
10000 
10010 
10020 
10030 
10090 
10100 
10110 
32767 

Ready 

RUNNH 

MAIN ERROR 61 HAPPENED AT LINE 1010 
FUNCTION ERROR 61 HAPPENED AT LINE 10020 
MAIN ERROR 61 HAPPENED AT LINE 1030 
Ready 

The same program in BASlC-PLUS-2 behaves somewhat dif¬ 
ferently: 

RUNNH 

MAIN ERROR 61 HAPPENED AT LINE 1010 
FUNCTION ERROR 61 HAPPENED AT LINE 10020 
FUNCTION ERROR 61 HAPPENED AT LINE 1030 

7FNEND without function call at line 10030 in 'ETEST * 

In VAX-11 BASIC, a multi-line function is established as a 
separate program unit with its own internal data block contained 
within a main program. In BASlC-PLUS-2, the organization of a 
function is less formal, more closely resembling a GOSUB-type sub¬ 
routine with arguments. This formal block structure can “lose” 
variables from function to function and drive a conversion program¬ 
mer a little crazy. Consider this VAX-11 BASIC example: 


1000 

X=FNTEST1(1) 

10000 



DEF FNTESTKX) 

10010 



PRINT 'INSIDE TESTl 

10020 



X1=FNTEST2 

10030 



FNEND 

11000 



DEF FNTEST2 

11010 



PRINT 'INSIl 

11020 



FNEND 

RUNNH 




INSIDE 

TESTl: 

1 


INSIDE TEST2: 

0 



The same routine in BASIC-PLUS-2: 

RUNNH 

INSIDE TESTl: 1 
INSIDE TEST2: 1 

In the VAX BASIC example, the argument X in FNTEST1. which 
gets a value of 1 from the main program (line 1000), is local to 
FNTEST1 and curiously “unknown” to FNTEST2. which is invoked 
by FNTEST1. To be safe, you must remember to pass any argu¬ 
ments in a function’s argument list down through the argument 
lists of subordinate functions (this is almost as hard to explain as it 
was to debug). Note that this applies only to argument list variables. 


ZERa=0 
1 = 1 

ON ERROR GO TO 1090 
E=I/ZER0 
X=FNERR0R 
E=I/ZER0 

PRINT -MAIN ERROR';ERR;'HAPPENED AT LINE'JERL 
RESUME 1020 IF ERL=1010 
RESUME 32767 

DEF FNERROR 

ON ERROR GO TO 10090 

E=I/ZER0 

FNEXIT 

PRINT 'FUNCTION ERROR'JERRi'HAPPENED AT LINE'tERL 

RESUME 10030 

FNEND 

END 


Variables outside of DEF argument lists are globally known across 
function boundaries, as in BASIC-PLUS and BASlC-PLUS-2. 

To avoid confusion and survive conversion, the DEF* construc¬ 
tion can be used in VAX BASIC to “revert” to BASIC-PLUS and 
BASlC-PLUS-2 function handling. 

DATA TYPES 

VAX BASIC introduces a new class of data (EXTERNAL), as well 
as a new data type (LONG, for longword integer). A DECLARE state¬ 
ment, which allows the definition of symbolic constants and explicit 
typing of program variables, is also provided. 

VAX BASIC integers may be 16- or 32-bit values, depending on 
whether they are DECLAREd "WORD” or “LONG” within the pro¬ 
gram. Variables declared INTEGER, and integer variables defined in 
the traditional fashion by a trailing %. will be compiled as word or 
longword depending on a COMPILE command switch (/WORD or 
/LONG). As on the PDP-11, 16-bit integers can represent numbers 
from -32768 to + 32767. The new 32-bit integer, or longword, can 
assume values from -2147483648 to +2147483647. Unfortun¬ 
ately, while short and long integers can be mixed within a single 
program via DECLARE, it is still not possible to mix both single and 
double precision floating point variables. The precision of floating 
point values is still determined on an all-or-nothing basis by a COM¬ 
PILE switch (/DOUBLE). 

EXTERNAL variables and constants are resolved at LINK time 
(the LINKER is VMS’ much faster answer to TKB), and are used to 
reference global error constants, to define external program func¬ 
tions, and to reference externally defined variables. External con¬ 
stants are used by VMS to define symbolic status values which are 
returned by operating system services. Using EXTERNAL constants, 
a program which issues a system service can check the results 

against the symbol SS$_NORMAL rather than the constant 1%. 

This makes the program more readable and. should the value for an 
external constant change, the referencing program can be adapted 
without editing by simply re-LINKing it. 

The DECLARE statement permits the definition of symbolic 
constants within an application program. “DECLARE INTEGER 
TRUE = -1 ’’ will establish an integer constant TRUE with a boolean 
value of "true” within the program. Likewise, I/O channel numbers 
and other program-dependent parameters can be established as 
symbolic constants using DECLARE. Variables within the program 
can be “typed” in DECLARE statements, eliminating the require¬ 
ment that integer names end in a percent sign and string names 
end in a dollar sign. "DECLARE STRING X ” establishes a string 
variable X, which is not to be confused with the well-known floating 
point variable of the same name. In practice, using DELCAREd 
variables with implicitly typed % and $ variables can be very confus¬ 
ing. and will demand a lot of mental adjustment. 

An undocumented compiler directive in BASlC-PLUS-2 allows a 
programmer to establish symbolic constants within their programs. 
Try this some day: 

.DEFINE .X% = -1% 

.DEFINE .Y$ = ‘ABC ” 

X% = .X% 

Y$ = Y$ 

PRINT X%, Y$ 

VAX BASIC offers the .DEFINE as well, but use these at your 
own risk. Memory management violations, inaccurate results, and 
reserved instruction traps may await you. and the “feature” can be 
withdrawn from a future release without warning. 

INTERFACE TO VMS 

BASIC-PLUS and BASlC-PLUS-2 programmers under RSTS/E 
communicate with the operating system via SYS(). VAX BASIC pro¬ 
grammers "CALL” VMS system services as they would call their 
own externally compiled subroutines and functions. (Did I neglect to 
mention? VAX BASIC allows the separate compilation of external 
functions via the FUNCTION/FUNCTIONEND statements.) The inter¬ 
face to VMS system services is the same for most VAX languages 
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(CORAL and DSM are a little strange), and all VAX languages share a 
common run-time library of support routines. Thus, under VMS. it is 
possible for programs written in VAX BASIC to call or be called from 
COBOL, FORTRAN, or what-have-you. 

PROGRAM FORMAT 

An undocumented feature of VAX BASIC, described in the VAX 
BASIC User’s Guide (in an undocumented section of the document), 
allows programming without backslashes and, for the most part, 
ampersands. This "new" program format is experimental and, to 
experienced BASIC-PLUS programmers, a little strange. Nonethe¬ 
less it is already used so widely that there is little hope it will be 
withdrawn in a future release (without some new version of TRANS 
to get us from "there" back to "here"). 

PROGRAM SIZE 

The most profound characteristic of VAX BASIC programming 
is the severely confining VAX/VMS program size restriction: a pro¬ 
gram under VMS is strictly limited to one billion bytes, and not one 
byte more (Note that a PDP-11 task is limited to 65K bytes, or 
roughly one 15000th that size.). In practice, however, a 1GB pro¬ 
gram image would occupy 4 RM05 disks (about 15 RM03s), so jobs 
that size are not normally found in nature. Just the same, a PDP-11 
programmer who would like to open 10 or 15 indexed files in a 
single program, or pull a virtual array into real virtual memory for 
quicker processing, can get very comfortable on a VAX in short 
order. Subroutine overlays. RMS co-trees, and the plethora of 
familiar shoe-horning techniques needed to get programs to fit on 
the PDP-11 can be forgotten on the VAX. unless you are using 
BASlC-PLUS-2 in compatibility mode. 

STRUCTURED VAX BASIC 

Two years ago. in the RSTS Professional Vol. 1. No. 1, we 
adapted structured programming techniques to the BASIC-PLUS 
and BASIC-PLUS-2 languages. We will do the same here for VAX 
BASIC, and take this opportunity to add a few options we missed 
then. 

Structured programming recognizes three elementary program 
“forms:" 

Sequence. In a sequence structure, one program statement 
follows and is executed after another. 

Selection. In a selection, one or another separate alternative 
paths through a program are taken depending on the evalua¬ 
tion of a logical condition. 

Iteration. In an iteration, a program section is executed 
repeatedly while a logical condition is true. 

Traditional flowcharts describing these elements are shown in 
figure 1. Note that each has only one entry point and exit; hence, 
they can be "plugged" together to make complex composites (pro¬ 
grams) which likewise will offer only one path in and one path out. 
Also, the process squares in the flowcharts can be replaced by other 
structures in a nesting arrangement. This interchangeability has in¬ 
spired an alternative representation of these elements, called Chapin 
charts (figure 2), which highlights the "building block" nature of 
these elementary structures. 

In VAX BASIC, sequence consists simply of non-branching ex¬ 
ecutable program statements. For example 
INPUT X 
Y = SQR(X) 

PRINT THE SQUARE ROOT 0F';X;‘ IS";Y 

A selection is managed by an IF-THEN as follows: 

INPUT X 
IFX<0THEN 

PRINT "CANT TAKE THE SQUARE ROOT 0F’;X 

ELSE 

Y = SQR{X) 

PRINT THE SQUARE ROOT 0F :X;"IS";Y 
I ENDIF 

Note the comment I ENDIF in this example. The present version of 


VAX BASIC lacks an ENDIF instruction, so we’ve inserted one here 
as a comment to preserve visual symmetry. IF blocks are implicitly 
terminated by a new line number, and the lack of an explicit ENDIF 
can complicate matters when we include an IF within another IF. 

Consider this structured English (sometimes called pseudocode) 
example: 

IF APPUCANT IS OVER 40 THEN 
IF APPLICANT IS MALE THEN 
ASSIGN TO RISK CLASS 1 
ELSE 

ASSIGN TO RISK CLASS 2 
ENDIF. 

ADD 1 TO OVER FORTY COUNT 

ELSE 

ASSIGN APPUCANT TO RISK CLASS 3 
ADD 1 TO UNDER FORTY COUNT 

ENDIF. 

VAX BASIC offers no direct representation of this example. The 
statement "ADD 1 TO OVER FORTY COUNT” is left dangling in the 
absence of an ENDIF to end the inner IF block without also ending 
the outer IF block. We need to re-arrange the logic a little to repre¬ 
sent this using VAX BASIC: 

1000 IF APPUC.AGE% >40% THEN 

OVER.FORTY% = OVER.FORTY% + 1 % 

IF APPLIC.SEX$ = "M" THEN 
APPLIC.RISK% = 1% 

ELSE 

APPLIC.RISK% = 2% 
lENDIF. 

ELSE 

UNDER.FORTY% = UNDER.FORTY%-i-1% 

APPLIC.RISK% = 3% 
lENDIF. 

1005 

By moving our dangling statement up after the initial IF, we ar¬ 
range for the inner and outer IF blocks to terminate in the same 
place and avoid the problem. Some more complex IF nesting may re¬ 
quire that the blocks be separated, and that the same condition be 
tested more than once to represent all the alternatives. 

VAX BASIC offers several iteration mechanisms, all of them es¬ 
sentially variants of the DO-WHlLE drawn in figures 1 and 2. 

WHILE LEN(X$)>0% 

D% = INSTR(1%. X$. 

D% = LEN(X$)-i-1%& 

IF d% = 0% 

PRINT LEFr(X$. D%-1%) 

X$ = RIGHT(X$. D% + 1%) 

NEXT 

This example extracts and prints substrings delimited by commas or 
by the end of the string from X$. 

The VAX BASIC "UNTIL" statement is the same as "WHILE 
NOT." Unlike the DO-UNTIL in figure 1, VAX BASIC "UNTIL" is a 
leading decision loop construct. Our iteration example is easily 
rewritten using the equivalent UNTIL: 

UNTIL LEN(X$) = 0% 

D% = INSTR(1%. X$. 


NEXT 

In either case, the loop contents are not executed at all if the 
terminating condition is satisfied upon entry (i.e., LEN(X$) = 0%). 

In a “real" (remember VAX BASIC doesn’t have one) DO-UNTIL, the 
loop contents will always be executed at least once, and conditions 
established within the loop will determine whether the loop will be 
repeated. Sequential file processing, in which a READ must be issued 
to determine whether any records remain in the stream, warrants a 
DO-UNTIL. Such loops must be built using a DaWHILE in VAX BASIC: 
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RSTS/E ON VAX 
ROSS/V 

(RSTS/E Operating System Simulator for VAX) 


ROSS/V is a software package, written in 
VAX-II MACRO, which provides a RSTS/E 
monitor environment for programs running in 
PDP-11 compatibility mode on DEC’S VAX-II. 

ROSS/V supports; 

■ The BASIC-PLUS interactive environment 

■ Concurrent use of multiple run-time systems 

■ Update mode (multi-user read/write access to 
shared files.) 

■ CCL (Concise Command Language) commands 

■ An extensive subset of RSTS/E monitor calls 


ROSS/V runs under VMS and interfaces to pro¬ 
grams and run-time systems at the RSTS/E 
monitor call level. ROSS/V makes it possible for 
DEC PDP-11 RSTS/E users to move many of 
their applications directly to the VAX with little 
or no modification and to continue program 
development on the VAX in the uniquely hospit¬ 
able RSTS/E environment. Most BASIC-PLUS 
programs will run under an unmodified 
BASIC-PLUS run-time system. 

RSTS, PDP-11. VAX-11, and DEC are trademarks of Digital Equipment Corporation. 


ROSS/V is available from: 


(Eastern U.S.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 


(Central U.S.) 

Interactive Information Systems, Inc. 

10 Knollcrest Drive 
Cincinnati, Ohio 45237 
(513) 761-0132 

CIRCLE 67 ON READER CARD 


(Western U.S.) 

Online Data Processing, Inc. 

N. 637 Hamilton 
Spokane, Washington 99202 
(509) 484-3400 


100 END.0F.FILE% = 11% 

DECLARE WORD TRUE = -1%. & 
FALSE = 0% 

1000 X% = FNREAD.RECORD% 

UNTIL N0.M0RE.REC0RDS% 
PRINT DATA.REC$ 

X% = FNREAD.RECORD% 
NEXT 


2000 DEF FNREAD.RECORD% 

ON ERROR GO TO 2090 
UNPUT DATA.REC$ 

N0.M0RE.REC0RDS% = FAL5E% 

FNEXIT 

2090 IF ERR = END.OF.FILE% THEN 

N0.M0RE.REC0RDS% =TRUE 
RESUME 2099 
ELSE 

ON ERROR GO TO 0 
lENDIF. 

2099 FNEND 

A function reference with no arguments (FNREAD.REC0RD%) is 
like a named GOSUB. Since the current version of VAX BASIC 
doesn’t allow alphabetic statement labels, the “readability” of a pro¬ 
gram can sometimes be improved by using functions. 

The initial FNREAD.REC0RD% call at line 1000 is sometimes 
referred to as a “priming read,” because it primes the DO-UNTIL 
with an initial value for the logical integer N0.M0RE.REC0RDS%. 
We could have avoided two FNREAD.REC0RD% calls by setting 
N0.M0RE.REC0RDS% = FALSE initially and re-arranging the loop, 
but then N0.M0RE.REC0RDS% would be modified in two places 


rather than one, possibly creating future maintenance headaches. 
For those of you who object to two FNREAD.RECORD% calls, we 
can re-write the loop using just one by returning the NO.MORE. 
REC0RDS% value as the result of the function: 

1000 UNTIL FNREAD.RECORD% = END.OF.FILE% 

PRINT DATA.REC$ 

NEXT 
—or— 

1000 PRINT DATA.REC$ & 

UNTIL FNREAD.RECORD% = END.OF.FILE% 


2000 DEF FNREAD.RECORD% 

ON ERROR GO TO 2090 
LINPUT DATA.REC$ 

fnre:ad.record%= o% 

FNExrr 

2090 IF ERR = END.OF.FILE% THEN 

FNREAD.RECORD% = ERR 
RESUME 2099 
ELSE 

ON ERROR GO TO 0 
lENDIF. 

2099 FNEND 

Of course, we could have written this in about four statements 
(please, no letters). Instead, we established local error trap¬ 
ping within an FNREAD function which houses our LINPUT state¬ 
ment to establish a functional module which performs a single 
service within our program. This module can be tested by itself in 
immediate mode, converted to an external procedure, or completely 
re-written without regard for the main program which invokes it. 
The traditional “ON ERROR GO TO 19000" defeats functional 
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modularity and complicates maintenance. The more complex the 
function, the more obvious the "local error handling" advantage 
becomes. 

We can use this opportunity to make a few observations about 
symbolic constants and logical variables. There are two kinds of 
documentation: primary documentation is executed by the com¬ 
puter (source programs, command procedures) whilo secondary 
documentation (flowcharts, comments within programs) is not. 
People tend to edit primary documentation when the need arises, 
but usually ignore the corresponding secondary documentation. 
This is called documentation lag, and implies that the final say about 
why software behaves as it does are the listings of the procedures 
themselves, and nothing else. Our programs are not only more 
readable when we use symbolic constants and logical variables, but 
maintenance programmers can rely on our program statements to 
follow our code without hunting around for comments, which are 
possibly inaccurate and misleading anyway. 

Assigning the value 11 % to the variable END.OF.FILE%. or 
declaring /.DEFlNEing a named constant with a value of 11, allows 
us to test the name rather than the number in our programs. This 
avoids a distracting look-up during maintenance. 

Integer values for all of the VAX BASIC run-time errors have 
been defined as EXTERNAL CONSTANTS and can be referenced from 
VAX BASIC, although this is not documented. This technique is a lit¬ 
tle cumbersome, though, and might not suit every situation: 

100 EXTERNAL INTEGER CONSTANT I 

BASS_ACCDEOUSE I 
» BAS«_CANFINFIL I 

f BAS$_UNUERR178 I 

f BAS$_BAtiDIRIiEV % 

I 

no PRINT FNERR7.(BAS$_ACCriEVUSE) ;ERTS(FNERRZ(BAS$-ACCDEVUSE) ) S 

' PRINT FNERRZ(BASS_CANFINFIL)fERT$(FNERRZ(BASi_CANFINFIL)) I 

\ PRINT FNERR%(BASi_UNUERR178)»ERT$(FNERRZ(BAS$_UNUERR178)) I 

PRINT FNERRZ(BAS$.BADDIRDEV);ERTl(FNERRZ(BASi_BADDIRDEV)) I 

I 

120 STOP 

lOOOO % 

BEF FNERRZ(LONG ERROR-CONSTANT) % 

\ FNERRZ=(ERROR-CONSTANT AND (NOT X'FFFF8000'))/8Z I 

NFNEND s 

i. 

% 

% 

Likewise, defining 1/0 channels, filenames, and logical values 
as constants at the beginning of a program offer single-source edits 
to these items as well as improved readability. 

Another form of iteration mechanism provided by VAX BASIC 
is recursion. DEF functions can call themselves in VAX BASIC as in 
BASIC-PLUS and BASIC-PLUS-2. In addition, external functions and 
subprograms can also be used recursively. Frightening as the con¬ 
cept seems to most programmers, recursion is sometimes the most 
obvious way to represent a procedure: 

10000 DEF FNFACTORIAL%(N%) 

IF N% < =0% THEN 

FNFACTORIAL% = 1% 

ELSE 

FNFACTORIAL% = FNFACTORIAL%(N%-1%)*N% 
lENDIF. 

10099 FNEND 

This textbook example computes the factorial of a number by call¬ 
ing itself until its argument equals 1. Because the function is 
referenced the same way from within itself as from without (sort of 
like holding a mirror to a mirror), this is sometimes called sym¬ 
metrical recursion. 

Asymmetrical recursion, when a function calls itself with dif¬ 
ferent argument values from those it received from the main pro¬ 
gram. can be applied to less esoteric (and much more common) com¬ 
mercial applications: 

DEF FNDISPATCH% (OPTIONS) 

IF OPTIONS = "ADD” THEN 
X% = FNADD% 

ELSE 

IF OPTIONS = "DEL" THEN 
X% = FNDELETE% 

ELSE 


IF OPTIONS = "SH0" THEN 
X% = FNDISPLAY% 

ELSE 

IF OPTIONS = "ALL" THEN 

X% = FNDISPATCH%("ADD") 
X% = FNDISPATCH%(‘DEL") 
X% = FNDISPATCH%("SHO") 
lENDCASE. 


FNEND 

In this example, a "dispatch" function offers three elementary alter¬ 
natives ("ADD", "DEL", and "SHO") and a composite option ("ALL") 
which executes all three. The "ALL" option is handled by calling the 
dispatch routine recursively for all three elementary options. 

Of course, for iteration with built-in indexing you can use FOR- 
NEXT. A VAX BASIC FOR loop is a leading decision (DO WHILE) itera¬ 
tion with a built in indexing feature which increments or 
decrements a variable each time the loop is executed. The terminal 
value of the indexing variable can be specified, or an UNTIL/WHILE 
condition can be used to end loop execution. 

PROGRAM FORMATTING 

Standard comments such as copyright notices and variable 
descriptions, line number and variable name conventions, 
subroutine naming rules — all of these are matters of local discre¬ 
tion and can’t be discussed in detail here. You can find a sample pro¬ 
gram "shell" in your User’s Guide to start with and develop your 
own from there. 

I’ve found that indentation of program statements within 
loops and selections helps me navigate through my listings, and I in¬ 
clude an lENDIF comment for all my IF blocks to help me avoid ac¬ 
cidentally omitting or miswriting clauses. I maintain MAPs as ex¬ 
ternal source modules which can be APPENDed to new programs as 
needed, and to avoid conflict with internal program variables (unlike 
COBOL, VAX BASIC doesn’t allow qualified names) 1 prefix my MAP 
variables with a brief mnemonic: 

MAP (CUSTOMER_RECORD) & 

CU_ADDRESS$(4) = 40%. & 

CU_CODE$ = 10%. & 

CU_BAL.DUE. & 

CU_TERRITORY% 

MAKING STANDARDS (THAT) WORK 

You can take the ‘standards" suggested in this article, add 
some you’ve read about elsewhere, and combine them with a few of 
your own to devise "rules ” which will encourage good programming 
without handcuffing your programmers. Its worth taking the time 
to understand what a good program is. and encouraging your col¬ 
leagues and employees to do the same. 

SAMPLE PROGRAM 

The following sample VAX BASIC program illustrates many of 
the points discussed in this article. This program (SYSLINK) allows a 
VAX to communicate with a RSTS/E (or anything else) system via 
asynchronous line. The terminal from which SYSLINK is invoked is 
established as a "virtual terminal" to the remote machine, and a 
rudimentary file transfer feature allows the interchange of source 
(i.e., sequential ASCII) data between systems. (Note: If you decide to 
try SYSLINK. remember to SET TERM/FULL DUPLEX on both the 
terminal from which you run it and the VAX terminal line into 
which the PDP-11 is connected.) 


A1 Cini will be conducting a one-day presymposium seminar at 
DECUS this Spring on structured methods for BASIC-PLUS, BASIC- 
PLUS-2 and VAX-11 BASIC programmers. For more information, 
call Computer Methods Corporation at (609) 778-8440, or write 
DECUS, Presymposium Seminars, MR2-3/E55. 1 Iron Way, Marl¬ 
borough. MA 01752. 
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•ENDIF. 

PRINT 'Lino Ettabllthod Utina ■ ILINK.DEVICES 1■I Procaad.' 
PRINT 

XX«FNMRITE.HSOXIREHOTE.TERH.CHANX* CTRL.Otl 


r stalls ICTRL/S) 


LOCAL.DUFFADRX • LOC(HSO.SUFFER!LOCAL.SUFFER>> 

REHOTE.SUFFADRX • LOC(HSO.SUFFER(REHOTE.SUFFER)) 

XX-FNSETUP.READ.OIOX(REHOTE.TERH.EFN. I 

REHOTE.TERH.CHANX. t 
REHOTE.SUFFADRX. t 
REHOTE.FUNC.CODEX) 

XX'FNSETUP.READ.aiOX<LOCAL.TERH.EFN. I 

LOCAL.TERN.CHANX. S 
LOCAL.SUFFADRX. I 
LOCAL.FUNC.CODEX) 

XX'FHPOLL.DEVICESX 

L1NK.SR0KENXXL0CAL.HS8X AND HSO . SUFFER (LOCAL . SUFFER )'CTRL . At) 
UNTIL LINK.SROKENX 

IF RENOTE.HSOX THEN 

HE SSASESrHSG.SUFFER(REHOTE.SUFFER) 
XX*FHHRITE.HSOX<LOCAL.TERH.CHANX. HESSAOEt) 
XX'FNSETUP.READ.OIOX(REHOTE.TERN.EFN. I 

REHOTE.TERH.CHANX. t 
REHOTE.SUFFADRX. I 
REHOTE.FUNC.CODEX) 

IF REHOTE.LOOOINOX THEN 

IF HESSAOEt'CR THEN 

PRINT SREHOTE.LOO.CHAN 
• Sat ua naa RHS racord. 

ELSE 

IF NESSAGEfHT THEN 

PRINT SREHOTE.LOO.CHAN. HTI 

ELSE 

PRINT SREHOTE.LOO.CHAN. HESSAGESI 
UNLESS ASCIMHESSAOCt) ] 
' Don’t bothar about control char 


TAS . 


1) LOCAL.HSOX THEN 

HESSAOEtrHSO.SUFFER(LOCAL.SUFFER) 

IF NESSAOEtrCTRL.Ct OR HESSAOES'CTRL.Ft THEN I 
XX«FNEND.LOCAL.LOOOINGX I 
IF LOCAL.LOOOINGX 
XX'FNEND.REHOTE.LOOGINGX I 
IF REHOTE.I OGGINOX 

XX-STStCANCEL(REHOTE.TFKN.CHANX ST VALUE) 
XX-FNURITE.NtGX(REHOTC.TERH.CHANX. CTRL.Ct) 
UNLESS HESSAGEtrCTRL.Ft 
XX-FNSETUP.READ.OIOX(REHOTE.TERH.EFN. t 
REHOTE.TERH.CHANX. I 
REHOTE.SUFFADRX. I 
REHOTE.FUNC.CODEX OR I 
lOtH.PURGE) 

XX'FNFILE.CONTROLS I 

IF HESSAGEt.CTRL.Ft 

IX'FNSETuP.RiAD.OIOX(LOCAL.TERH.EFN. I 
I OCAL.TERN.CHANX. t 
LOCAL.SUFFADRX. I 
LOCAL. FUNC. •;0DIX) 

XX.FNURITE.HSOX(REHOTE.TERH.CHANX. HESSACEI 
xr.FNSETUP.READ.OIOX(LOCAL.TERH.EFN. I 
LOCAL.TERH.CHANX. I 
LOCAL.SUFFADRX. I 
LOCAL.FUNC.CODEX) 


IF LOCAL.LOOOINOX THEN 

XX.FNNRITE.H80X(REH0TE.1 

(ELSE) 

ENDIF. 


XX.FNEND.LOCAL.LOGGINGS I 
IF LOCAL.LOOOINOX 
XX'FNEND.REHOTE.LOOOINOX I 
IF REHOTE.LOGGINGS 
XX'FNEXITX 


I.CHANX. LOCAL.LOG.CHARt) 


. CHAN. SUFFADR. function.CODE) t 


FUNCTION.CODE 


ST value t 
ST value I 
ST VALUE I 


XZ«FNERR0RX('Fallura to EttablitH Raad 010 on EFN'FNUHlt(EFN). 
ERRORS) I 

IF FNFATALX(ERR0RX> 


liOOO t 

DEF FNPOLL.DEVICES! I 
\ DECLARE LONG EFN.CLUSTER 

IIOOS IF LOCAL.lOGGINGX THEN 

LOCAL.LOG.CHARt«FNGET.NEXT.LOCAL.LOO.CHARt 
IF NO.HORE.local.LOO.CNARSX THEN 
LOCAL.LOGGINGX'NO 
CLOSE LOCAL.LOG.CHAN 

• (ELSE) 

■ ENDIF. 

llOlO ERRORX*STStUFLOR(REHOTE.TERH.EFN ST VALUE. I 

FNSITNASKX(RCHOTE.TERH.EFN) OR I 
FNSITHA8KX(L0CAL.TERH.EFN) ST VALUE) I 

UNLESS LOCAL.LOOOINGX 

XX>FNERRORX('TNait for EFN Failura*.ERRORS> I 
IF FNFATALX(CRRORX: 

REHOTE.FLAOSTATUSX -SYStREADEF(REHOTE.TERH.EFN ST VALUE. EFN.CLUSTER) 
LOCAL.FLAOSTATUSX •ST8tREADCF(L0LAL.TERN.EFN ST VALUE. EFN.CLUSTER) 
XX'FNERRORX!'Error Raadir.a EFN'.LOCAL .FlAGSTATuSX ) t 

IF FNFATALX(REHOTE.FLAGSTATUSX) OR FNF AT AL X ( LOCAL . F LAOS TATUSX) 
REHOTE.HSOX >(REHOTE.FLAOSTATUSX'SSt.HASSE T ) 

LOCAL.HSOX '(LOCAL.FLAGSTATUSX 'SSt.UASSET) 

not* t 

FHEND t 


l?000 I 

DCF FHURITC.HS0X(PRINT.CHANX.HESSAGEt) t 


tt.sufffr 

TT.SUFFSIZEX 

ERRORX'STStOIOl 


HESSAGEt 
LEN(HCSSAGEt> 

PRINT.CHANX ST VALUE I 

PRT.FUNC.CODEX ST value t 


T(.SUFFER ST REF I 

TT.SUFfSlZEX ST VALUE I 


17030 XX-FNCRR0RX('Tarainal OION Failura*. ERRURX) I 
IF FNFATALZ(ERR0RXI 

1709* I 
FNEND I 


13000 I 

DCF FNFATAL(ERR.C00EXI'IERR.costs AND SSt.NORHAL) SSt NORHAL I 
13000 I 

DEF FNGET.NEXT.LOCAL.LOC.CHARt I 

ISOlO ON ERROR GO TO 130*0 

IF LEN(LOCAL.LOO.SUFFER*)'OX THEN 

IINPUT tLOCAL.LOG.CHAN. LOCAL.LOC.SUFFER* 

LOCAL.LOO.SUFFCRt'LOCAL.LOO.SUFFER*FCR 

• (ELSE) 

• ENDIF. 

13070 FNOCT.NEXT.LOCAL.LOO.CHARt' LEFT(LOCAL.LOO.SUFFER*•IX I 
LOCAL.LOG.SUFFER* 'RIGHT(LOCAL.LOO.SUFFER*.2X) 

NO.HORE.LOCAL.LOG.CHARSX 'NO 
FNEXIT 

130*0 IF CRR'END.OF.FILC THEN 

NO.HORE.LOCAL.LOG.CHARSX'TCS 
RESUHE 130** 

• (ELSE) 

• ENDIF. 

130** I 
FHCND I 
t 


20000 t 

DEF FNFILC.CONTROLS I 

20010 PRINT 

PRINT 'Fila Control* 

PRINT 

PRINT 'Salact:* 

PRINT 

PRINT ' CRCIcaiva and Stora Incoaina Charactart (Froo RSTS)' 
PRINT ' CTRlanaoit Storad Charactara (Froo VHS)* 

PRINT 

PRINT * Option*I 
LINPUT FILE.OPTION* 

FILC.0PTI0N*'LEFT(CVTtt(FILE.0PTI0Nt.-IX).7X) 

IF FILE.OPTIONt'**E' THEN 

PRINT TA*(3X)i*Rac*iuad Charactara Storaaa Flla'I 
LINPUT REHOTE.LOO.FILE* 

OPEN REHOTE.LOO.FILE* FOR OUTPUT AS FILE REHOTE.LOO.CHAN 
HARO IN tRCHOTC.LOO.CHAN. 200X 
REHOTE.LOSeiNGX'TES 

ELSE 

IF FILC.OPTIONt'*TR' THEN 

PRINT TAt(SX)l*Tranaoit Contanta of Flla'I 
LINPUT LOCAL.LOO.file* 

OPEN LOCAL.LOG.FILE* FOR INPUT AS FILE IOCAL.LOO.CHAN 
LOCAL.LOOOINOX'TES 

ELSE 

PRINT 

PRINT TAS(SX)I*» -Invalid Fila Ortian-ianerad' 

PRINT 

> ENDCASC. 

200** I 
FHCND I 

21000 I 

DCF FNEND.REHOTE.LOGGINGX I 
21010 PRINT 

PRINT 'Cloaina Racaivina Fila 'IREHUTC.LOO.FILE* 

PRINT 

CLOSE REHOTE.LOO.CHAN 
REHOTE.L0CGIN0!('N0 

210** t 
FNEND I 


27000 I 

DCF FNIND.LOCAL.LOGGINGS I 
22020 PRINT 

PRINT 'Cloaina Tranaaiaaien Fila '(LOCAL.LOO.FILEt 
PRINT 

CLOSE LOCAL.LOO.CHAN 
LOCAL.LOOGINOX'NO 

220** t 
FNEND I 


30000 I 

DEF FNCXITX • STStEXIT(SSt.NORHAL ST VALUE) 

30100 I 

DCF FNERRORXiERR.HSG*. ERR.CODEX) I 
30110 PRINT 

PRINT 'T'lCRR.HSGtl* -- Coda:'ICRR.CODEX 
PRINT 

FNERRORX'STStCXIKERR.CODEX ST VALUE) 

101** I 
FNEND I 


10200 I 

DCF FnFATALXIERRORX) 'ERRORS AND SSt.NORHAL) SSt.NORHAL I 

31000 I 

DEF FNSITHASKXiSIT.TO.SCTX) I 

31010 SIT.TO.SETX'OX I 

I) SIT.TO.SETS OX 
SIT.TO.SETX'SIT.TO.SETX-J.'X t 

NHILC SIT.TO.SETS ' 3.X 
FNtITHASKX>7t*SIT.T0.Sl (’. 

310** I 
FNEND I 


377A7 
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PROGRAM NOTES 

By Carl Marbach 


SELECT 

Ever wanted to know what records in one of 
your data files matched some special criteria? For 
example, who in your master file is over 40 years 
old, college educated and has an income of over 
$20,000 per year. The standard way of finding 
this out would be to create a standard program 
to pass through the file; you would insert the 
proper code in the middle of this program: 

IF DATA = WHAT.WE.WANT THEN PRINT 

If you are a DATATRIEVE user or are using a 
database query language, then you are using the 
constructs of that system to configure a report. 
Report generators are useful tools that allow 
english-like commands to format and create a 
report from a file or data base. All of these have a 
common problem, particularly if the file is a large 
one: It takes a long time to pass through the en¬ 
tire file. 

Many standard programs in any system also 
pass through these files or data bases picking out 
certain totals, separating items, and preparing re¬ 
ports. Trial balances. Account distributions. In¬ 
ventory listings, delinquency reporting and 
general file listings are examples of some reports 
printed on a regular basis. 

Last year we began using a product from 
Evans. Griffiths and Hart (EG8iH) called SELECT. 
This product reads input from any file (except 
RMS Indexed files), selects records based in input 
parameters, and outputs a file specified by user 
input. You can scan a 256 Byte/record & 2 per 
block record 1/0 file, look to see if bytes 23-24 are 
equal to 30%. and output a file with as little a 6 
bytes per record up to the entire 256 bytes of the 
input record (more if the input record is larger). 
SELECT is written in MACRO, and uses its own 
run-time system (SELECT.SLQ to get some speed. 
It is FAST. So fast that we thought something 
was wrong the first time we ran it. 

How fast is it? Our 50,000 record. 256 
Byte/record file was scanned for one field (1 byte 
integer) > = 0 AND the second field (2 byte in¬ 
teger) = 0 in 12.8 CPU seconds. Thats right! 12.8! 
The same file but with simpler or more complex 
extraction expressions varied from a low of 10.5 
seconds to 15.8 for a very complicated selection. 
All of these times included writing out a file of 
sub-data from the selected records. One day a 
bank question occurred that looked like it would 
be hard to answer: To whose account have we 
recently applied a 117.07 Payment? The problem 
required the scanning of our entire history file 
which has 20 bytes/record and is 1,085,000 
records long! Over a million records! The SELECT 
program was run yielding several 117.07 pay¬ 
ments from which we found the correct one. The 
total time to scan and write out the records 
which matched was 103 CPU seconds! Under two 
minutes to scan more than one million records! 

We now routinely use SELECT to write index 
files for processing the main data files; This way 
we read only those records that we are interested 
in. We use SELECT to scan through a file and 
write out only the data fields we need for a 
report, allowing our programs to manipulate 
much less data. SELECT has revolutionized the 
way we think about access to our files; things 
that were hard to get to are now easy. Times to 
access data have been reduced KX) fold in many 
cases. 


An option to the SELECT package is FS0RT3. 
FS0RT3 is EGSiH’s Fast Sort program. When at¬ 
tached to the SELECT package, it allows sorting 
of the output file by any of the selection fields. 
One Payroll file we have is kept in department 
order, but we often want things run alphabetical¬ 
ly. Simple: use a SELECT procedure to pull out rel¬ 
ative record number and name, sort on the name, 
and use the RRN as an index into the file. Takes 5 
CPU seconds to SELECT and 3 seconds to SORT 
the 700 or so people in the file. Of course we use 
QUE-11 and the ‘DO' command to make this pro¬ 
cedure transparent to the operator, but we ll do 
QUE-11 another time. 

SELECT is a fast selection and optional sort 
package from EG&H. It passes almost any kind of 
file with unbelievable speed. It has changed the 
way we access our files and the way we think 
about file design under RSTS. 

Define A as an integer starting at byte 1 and output an 
integer at byte 1. Define B as an integer starting at byte 3 
and output an integer at byte 3. Define C as an integer 
starting at byte 6 but don’t write in the output file ... 
write out (H) in the output file 6 blanks beginning at tyte 5. 

Number of output header records <1> ? 

(For incut file DBO:LOA] 

Type of input file <1> ? 

Number of data records <from data file header> ? 40000 

Length of data records ? 256 

Number of records reserved for header •-0> ? 

Begin selection at data record <1> ? 

End selection at data record <400no> ? 


Key descrp ? A:I1,AI1 
Key descrp ? B:I3,AI3 
Key descrp ? C:I6 



Key descrp ? 

Record selection expression ? 

* (C<29464) AND ((A>»0) AND (B>0)' AND (D>»0) AND (E>0) 

Keys to sort on ? 

• A 
t B 
« 

SELECT Wall time 82 CPU time 12.1 
(8849 records selected] 

SORT Wall time 19 CPU time 8.2 

Number of output header records <1> ? 


VISICALC 

A couple of years ago a graduate student did 
a graduate project which consisted of a program 
to use a micro-computer as an electronic work¬ 
sheet. The computer displayed the matrix of rows 
and columns. Unlike a paper and pencil work¬ 
sheet, this one allowed elements to be either data 
or equations involving other matrix elements. 
This program, now called VISICALC (tm), has 
become the best selling program in computer 
history. It currently runs on many micros such as 
APPLE and TRS-80 as well as the CP/M on DEC’S 
VT100 add on (an we suspect DATANODES as 
well). We often wondered why companies with 
11 /70’s would have to buy an APPLE to run VISI¬ 
CALC; now they don’t. VISICALC has been incar¬ 
nated on RSTS as DIGICALC. There is however no 
connection between the two companies who pro¬ 
duce this competing product, and although they 
look very much alike; they are different. 

DIGICALC is a product from WHY SYSTEMS, 
and run by Wayne Yarnell. DIGICALC is now avail¬ 
able for RSTS . RSX (?), and VAX computers. 
The"now* may be a few weeks away, but it is 
definitely here. I tried DIGICALC. or rather had 
our financial V.P. try it to get his impressions 
Since he uses and APPLE and VISICALC now. 

While they are not the same, if you can run 
VISICALC on the APPLE you can run DIGICALC on 


a RSTS system in about 15 minutes, most of 
which will be spent learning some RSTS features 
built into DIGICALC. The complete RSTS file struc¬ 
ture is available to store worksheets and of 
course more than one user can use DIGICALC at 
one time. DIGICALC distinguishes between a 
USER, a GROUP and the WORLD, allowing access 
for saving, recalling or revising worksheets by 
these groups. DIGICALC will also allow printing of 
the output of the worksheet or the worksheet 
itself to any RSTS device. There is an interface 
between DIGICALC and user data through ASCII 
files so that your data from any source could 
become part of a DIGICALC worksheet. 

An interesting implementation for RSTS is 
the training available at the VT100 (required) ter¬ 
minal. The training is both interactive and table 
driven making it a unique exercise. HELP is avail¬ 
able at the terminal in two modes: a general 
HELP for all commands and an interactive HELP 
available while performing any command. 

The worksheet is organized into rows which 
are designated by numbers and run down the 
side of the VT100, and columns which are letters 
and run across the top of the VT100. The inter¬ 
section of a row and column is called a^ll and is 
labeled by its coordinates: A2 or B12, etc. Using 
the arrows on the keyboard you move the cursor 
to the cell you want and then simply put In data, 
and equation or a label. If A1 contains a 10, and 
B2 contains a 3. and C3 contains A1 *82; when 
you calculate (either automatic or on demand) C3 
would contain 30. The second line down from the 
top of the VT100 is the prompt/help line while 
the next line down is the entry line. In our exam¬ 
ple above, if we positioned the cursor to C3 the 
Entry line would say A1 * B2 and the cell C3 would 
contain 30. To really see this type of program op¬ 
erate, go to a micro-computer store and ask for a 
Demo; if you can find a person who knows how 
to use an electronic worksheet demonstrations 
are very helpful. 

The original version required a Roating Point 
Processor but the latest version will allow DIGI¬ 
CALC to run on a machine without one. The 
workspace Is limited to 60 columns and 50 rows 
on RSTS and is 150 Columns and 200 rows on 
VAX. these are subject to change and may be re¬ 
duced if you don’t have a FPP. As the product ma¬ 
tures these will surely get larger. 

This type of product has proved popular with 
the non-programming people that 1 have met. 
The accountants can relate to a spread sheet they 
can see. and they seem to adapt to the compu¬ 
terized one more easily than to a more program 
oriented model system. DIGICALC will do some 
modelling and a ‘lot of ‘fill in the blanks’ type of 
what if questions. There are better packages for 
real business modelling if this is what you want. 
The bigger and more featured ones will allow bet¬ 
ter documentation, more efficient calculations, 
looping for what If conditions so you can run a 
model for inflation running from 8% to 14% in 
.5% increments and see what the results would 
be; you can even graph the results for better 
understanding of the output. 

For easy use. friendly help, good training, 
large user group, low price and entry into compu 
terized spread sheet analysis DIGICALC is a neat 
product. A trial version is available. Now if we on¬ 
ly could play space invaders. ^ 
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HOW DO YOU READ A RSTS/E DISK STRUCTURE? 

... continued from page 47 


! INDICATE PRINT CONTROL 


\ 

\ 

\ 

150 

\ 


200 

\ 

\ 

\ 

210 

\ 


220 

\ 

\ 

\ 

\ 


PRINT #10%,TAB(5%); 

UFD.CLUSTER = ((UFD.CLUSTER-1)*DCS%)/PCS% 
PRINT 110%,USING •#####",UFD.CLUSTER; 
SECONDS * INT(MCPU/10) 

GOSUB 20000 

PRINT 110%,TAB(14%);EDIT.TIMES; 

PRINT #10%,TAB(25%); 

PRINT 110%,USING "iii###i#",MKCT; 

SECONDS = MDEV 
GOSUB 20000 

PRINT •10%,TAB(34%);EDIT.TIMES; 

PkINT #10%,TAB(45%); 

PRINT #10%,USING -#•####♦•-,MDPER; 

IF MDPER > 0 
PKiNT #10%,’ UNLIMIT"; 

IF MDPER * 0 
SECONDS » MCON 
GOSUB 2(000 

PKINT #10%,TAB(54%);EDIT.TIMES 
CLOSE #1% 

UFD.ACCOUNTS - "I"+NUM1S(PROJ%)+"," 

+ NUMlS{PROG%)+"]" 

OPEN UFD.ACCOUNTS+DEVICES 

FOR INPUT AS FILE #2%, 

NODE 8192% 

UFD.LInK% » UFD% 

GOSUB 25100 

LINK% - UFD%(UFD.LINK%,0%) 

GOSUB 15000 
UPD.LinK% - LINK% 

GOTO 1000 IF UFD.LINK% - 0% 

GOSUB 26000 

PKINT •10%,RADS(UFD%(UFD.LINK%,1%)); 
RADS(UFD%(UPD.LINR%,2%) ) ; 

RADS(UFD%(UFD.LINK%,3%)); 


1 PRINT ACCOUNTING DATA. 


IGO GET NEXT LINK 


1 PRINT FILE NAME 


PROT% - SWAP%(UFD%(UFD.LINK%,4%)) AND 255% 
STAT% - UFD%(UFD.LINK%,4%) AND 255% 

PkINT •10%,TAB(11%); 

PRINT #10%,USING "###",PROT%; 

PRINT #10%,">-;TAB(17%); 


\ 

PRINT 

•10%,USING "###", 
UFD%(UFD.LINK%,5%1 

\ 

PkINT 

•10%,TAB(21%); 


\ 

STATS 

■ 

"" 


\ 

STATS 

■ 

"D" 

IF STAT% AND 

128% 

\ 

STATS 


STATS + "Q" 

IF STAT% AND 

32% 

\ 

STATS 

■ 

STATS + "C" 

IF STAT% AND 

16% 

\ 

STATS 


STATS + "0" 

IF STAT% AND 

8% 

\ 

STATS 


STATS + "W" 

IF STAT% AND 

4% 

\ 

STATS 

■■ 

STATS + "P" 

IF STAT% AND 

2% 


\ 

PRINT 

#10%,STATS; I 

\i** 




\l* 




\1* 

STATUS 

TABLE: 

\I* 

P 

- 

FILE IS PLACED 

\1* 

W 

m 

WRITE ACCESS NOT GIVEN 

\l* 

0 

m 

FILE OPEN UPDATE MODE 

\1* 

C 

m 

CONTIGUOUS 

\1* 

0 

m 

NO DELETE OR RENAME 

\1* 

D 

m 

FILE MARKED FOR DELETION 

\l* 




\l*^ 




250 

LINK% 

« UFD%(UFD.LINK%,6%) 


I PRINT PROT, ACCESS. 


\ 

\ 

\ 

260 

\ 

\ 


GOSUB 15000 
UaA.UFD.LINK% - LINK% 

GOTO 450 IF UAA.UFD.LINK% - 0% 

LINK% > UFD%(UAA.UFD.LINK%,0%) 
GOSUB 15000 

ATTRIBUTE.LinK% » LINK% 


IGET THE ACCOUNTING ENTRY 


IGET THE ATTRIBUTE LINK 


370 

\ 

\ 

\ 

\ 


PRINT #10%,TAB(28%); 

DATES(UFD%(UAA.UFD.LINK%,1%) ) ; 

TAB(38%); 

PRINT #10%,USING "#####", 

UPD%(UAA.UFD.LINK%,2%) ; 

PRINT #10%,TAB(44%); 

DATES(UFD%(UAA.UFD.LINK%,3%)); 

TAB(54%); 

PRINT #10%, 

LEFT(TIMES(UFD%(UAA.UPD.LINK%,4%)),5%); 

TAB(60%); 

RADS(UFD%(UAA.UFD.LINK%,5%)); 
RADS(UFD%(UAA.UFD.LINK%,6%)); 

TAB{67%); 

PRINT #10%,USING 

"###",UFD%(UAA.UFD.LINK%,7%); lACCOUNTING DATA OUT 

GOTO 450 IF ATTRIBUTE.LINK% ■ 0% 


PkINT.CONTROL% - 

SWAP%(UFD%(ATTRIBUTE.LINK%,1%)) 
AND 127% 

FiLc..ORG% - UFD%(ATTRIBUTE.LINK%,1%) 

AND 120% 

RECORD.FORMAT% « UFD%(ATTRIBUTE.LINK%,1%) 


AND 9% 


IGET FIRST WORD OF ACCOUNTING 
I ENTRY 


PRINT #10%,TAB(71%); 

PRINT #10%,"FO" ; 

IF (PRINT.CONTROL% AND 1%) - 1% 
PRINT #10%,"CR"; 

IF (PRINT.CONTROL% AND 2%) - 2% 
PRINT #10%,"UN"; 

IF (PRINT.CONTROL% AND 4%) * 4% 
PKINT #10%, "NO"; 

IF (PRINT.CONTROL% AND 10%) * 10% 


3tiU 

PkINT #10%;TAB(74%); 


\ 

PRINT #10%;"Sequ"; 

IF FILE.ORG% « 0% 

PKINT #10%,"Rela"; 

IF FILE.ORG% - 1% 


\ 


\ 

PRINT #10%,"Inde"; 



IF FILE.ORG% « 2% 

(INDICATE FILE ORGANIZATION 

390 

PRINT #10%,TAB(79%); 


\ 

PRINT #10%,"Unaeti"; 

IF RECORD.FORMAT% - 0% 


\ 

PRINT #10%,"Fixed"; 

IF RECORD.FORMAT% » 1% 


\ 

PKINT #10%,"Variab"; 

IF RECORD.FORMAT% - 2% 


\ 

PRINT #10%,"VFC"; 

IF RECORD.FORMAT% - 3% 


\ 

PRINT #10%,"Stream"; 


IF RECORD.FORMAT% -4% 

(INDICATE RECORD FORMAT 

400 

PRINT #10%,TAB(86%); 


\ 

PRINT #10%,USING "####", 

UFD%(ATTRIBUTE.LINK%,2%); 


\ 

PRINT #10%,TAB(91%); 


\ 

PRINT #10%,USING "#####", 

UFD%(ATTRIBUTE.LINK%,6%); 


\ 

PRINT #10%,TAB(97%); 


\ 

PkINT #10%,using "#######", 


UFD%(ATTRIBUTE.LINK%,7%); 

(REST OF ATTRIBUTE STUFF 

410 

LINK% - UFD%(ATTRIBUTE.LINK%,0%) 


\ 

GOSUB 15000 


\ 

SECOND.A.LINK% » LINK% 


\ 

GOTO 450 IF SECOND.A.LINK% - 0% 

(GET SECOND ATTRIBUTE ENTRY 

420 

PKINT #10%,TAB(106%); 


\ 

PRINT #10%,USING 



"######",UFD%(SECOND.A.LINK%,1%); 

\ 

PRINT #10%,TAB(114%); 


\ 

PRINT #10%,USING "#######", 



UFD%(SECOND.A.LINK%,2%); 

(PRINT OUT SOME RMS STUFF 

450 

PRINT #10%,TAB(122%);"ON"; 

IF UFD%(UFD.LINK%,0%) AND 4% 


\ 

PRINT #10%,TAB(125%);"YE"; 

IF UFD%(UFD.LINK%,0%) AND 2% 


\ 

PKINT #10%,TAB(128%);"SEQ"; . 

IF UFD%(UFD.LINK%,6%) AND 4% 
AND UFD%(UFD.LINK%,0%) AND 4% 


\ 

PRINT #10%,TAB(128%);"RAN"; 



IF (UFD%(UFD.LINK%,6%) AND 4%) 
AND UFD%(UFD.LINK%,0%) AND 4% 

- 0% 

\ 


(PRINT OUT FLAGS 

500 

PkINT #10% 


\ 

PRINT #10%," DEVICE CLUSTERS:"; 

(PRINT BANNER 

510 

LiwK% « UFD%(UFD.LINK%,7%) 


515 

GOSUB 15000 


\ 

UAR.LINK% - LINK% 


\ 

GOTO 900 IF UAR.LINK% » 0% 

(GET RETRIEVAL ENTRIES. 

520 

GOSUB 26000 



530 

\ 

\ 


600 

\ 


900 

\ 

\ 

\ 

1000 

15000 

\ 

\ 

\ 

\ 

15010 

\ 

\ 

\ 

\ 

15050 

\ 

15100 

\ 

\ 

\ 

\ 

15110 

\ 

\ 

\ 

\ 

\ 


- 1% TO 7% 

GOTO 900 

IF UFD%(UAR.LINK%,X%) - 0% 
PRINT #10%,TAB(20%+X%*10%); 
UNSIGNED.TEST - 

UPD%(UAR.LINK%,X%) 

GOSUB 600 
DISK.CLUSTER - 

((UNSIGNED.TEST-1)*DCS%)/PCS% 
PRINT #10%,USING "#####", 

DISK.CLUSTER; 


PKINT #10% 

LINK% - UFD%(UAR.LINK%,0%) 
GOTO 515 


GOTO 610 IF UNSIGNED.TEST > 0 
UNSIGNED.TEST ■ 32768 + UNSIGNED.TEST 
+ 32767 


1 PRINT OUT RETRIEVAL ENTRIES, 

1 DISK.CLUSTER - ((DCN-1)*DCS) 
1 /PCS 


IGET MORE UNTIL ZERO IN LINK% 


1 CONVERT NEGATIVE TO INTEGER 


PkINT #10% 
GOSUB 26000 
PRINT #10% 
GOTO 200 

GOTO 32767 


THIS SECTION CALCULATES A LINK% 


CLO.MASK% - 7% * 512% 

ENO.MASK% = 31% * 16% 

UL.BL0% * (SWAP%(LINK%) AND 240%)"2% 
UL.CLO% « ((LINK% AND CLO.MASK%)/16%)*CS% 
UL.ENO% > (LINK% AND ENO.MASK%)/16% 


LINK% - 
RETURN 


UL.BLO% * UL.CLO% * UL.ENO% 


THIS FUNCTION CONVERTS UNSIGNED INTEGER TO FLOATING PT. 


DEF FNUSI(USINT%) 

USTMP - USINT% 

USTMP - USTMP + 65535 IF USINT% < 0% 

FNUSI « USTMP 

FNEND 

PRINT #10%,TAB(15%);MCPU;TAB(25%); 
MKCT;TAB(35%);MDEV; 

TAB(45%);MDPER;TAB(55%); 

MCON 


(PRINT ACCOUNTING DATA. 
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20000 I******************************************** 

\ !* 

\ !* CONVERT NUMBER TO HOURS, MINUTES, SECONDS. 

\ 1* 


20010 HOURS% - INT(SECONDS/3600%) 

\ TEMP.SECONDS% = SECONDS - 3600% * HOURS% 

\ MINUTES% - INT(TEMP.SECONDS%/60%) 

\ TEMP.SECONDS2% = 

INT(TEMP.SECONDS% - 60% * MINUTES%) 

\ 1CALCULATE HRS, MN, SECS 


20020 

\ 

\ 

\ 

\ 

\ 


HOURS$ « 
HOURS$ « 
MINUTESS 
MINUTESS 

SECONDSS 
SECONDS$ 


NUMl$(HOURS%) 

SPACES{3%-LEN(HOURS$)) + HOURS$ 

» NUM1S(MINUTES%) 

» STRING$(2% - LEN(MINUTES$),48%) 

+ MINUTESS 

= NUM1$(TEMP.SECONDS2%) 

«= STRING$(2% - LEN(SECONDS$) ,48%) 

+ SECONDS$ 1 CONVERT TO STRINGS 


20030 Ei^IT.TIMES - HOURSS 

IF HOURS% > 0% 

\ EDIT.TIMES ' " 

IF HOURS% - 0% 

\ EuiT.TIMES « EDIT.TIMES + 

IF HOURS% > 0% 

\ EDIT.TIMES « EDIT.TIMES + " " 

IF HOURS% * 0% 

\ EDIT.TIMES « EDIT.TIMES + MINUTESS 

IF HOURS% > 0% 

OR MINUTES% > 0% 

\ EDIT.TIMES » EDIT.TIMES + " ' 

IF MINUTES% - 0% 

AND HOURS% - 0% 

\ EDIT.TIMES - EDIT.TIMES + 

IF MINUTES% > 0% 

OR HOURS% > 0% 

\ EDIT.TIMES * EDIT.TIMES + " " 

IF MINUTES% > 0% 

AND HOURS% - 0% 

\ EDIT.TIMES » EDIT.TIMES + SECONDSS IRETURN FORMATED TIME 


20040 RETURN 


25000 

\ 

\ 

\ 

\ 

\ 


This section prints out new page 

HEADINGS. 


25005 

\ 

\ 


\ 

\ 

\ 

\ 

\ 

\ 


PRINT *10%,CHRS(12%) 

Pl% - Pl% + 1% 

PkINT il0%,"UFD "DATES(O);" •;TIMES(0%); 

TAB(40%);"* * * ALLIS-CHALMERS HTD * * *"; 

TAB(120); 

"PAGE ";P1% 

PRINT #10% 

PRINT #10%,TAB(45%);"FULL ACCOUNT REPORT" 

PRINT #10%,"Account: (";PROJ%;",";PROG%; 

"] ■;A.NAMES 

PRINT #10% 

L0% » 5% 

RETURN I PRINT HEADINGS. 


25100 

\ 

\ 

\ 

\ 


PRINTS column headings. 


25115 PkINT #10%,TAB(71%);"* * * RECORD MANAGEMENT"; 

" SERVICES *****’•{ 

TAB(122%);"* FLAGS *" 

\ PRINT #10% 

\ PRINT #10%,TAB(28%);"DATE LAST";TAB(38%); 

"FILE";TAB(44%);"DATE OF"; 

TAB(54%);"TIME";TAB(74%);"FILE"; 

TAB(79%);"REC";TAB(86%);"REC"; 

TAB(91%);"EOF";TAB(97%);"FIRST"; 

TAB(106%);"BUCKET";TAB(114%);"MAX REC"; 

TAB(128%);"CA" 

\ PRINT #10%,"FILENAME";TAB(11%);"PROT"; 

TAB(17%);"ACC";TAB(21%);"STATUS"; 

TAB(31%);"ACCESS";TAB(38%);"SIZE"; 

TAB(44%);"CREATION";TAB(54%);"CREAT"; 

TAB(60%);"RTS";TAB(67%);"CL"; 

TAB(71%);"PC"; 

TAB(74%);"ORG";TAB(79%);"FORMAT"; 

TAB(86%);"SIZE";TAB(91%);"BLOCK"; 

TAB(97%);"BYTE EOF“;TAB(107%); 

"SIZE";TAB(115%);"LENGTH"; 

TAB(122%);"CA";TAB(125%);"BB"; 

TAB(128%);"TYPE" 

\ PRINT #10%,STRINGS(10%,45%);TAB(11%);"-"; 

TAB(17%) ;"-";TAB(21%) ;"-"; 

TAB(28%);STRINGS(9%,45%);TAB(38%); 

"-";TAB(44%);STRINGS(9%,45%); 

TAB(54%) ;"-";TAB(60%) ;"-"; 

TAB(67%) ;"-" ;TAB (71%) ; " —" ; 

TAB(74%) ;"-";TAB(79%) ;"-"; 

TAB(86%) ;"-";TAB(91%) ;"-"; 

TAB(9/%);STRINGS(8%,45%);TAB(106%); 

STRINGS(6%,45%);TAB(114%);STRINGS(7%,45%); 

TAB(122%) ;"“";TAB(125%) 

TAB (128%) ; "-" 

\ L0% - L0% + 5% 

\ RETURN IMORE HEADINGS 


26000 1 ********************************************* 

\ 1* 

\ 1* COUNTS LINES ON PAGE AND DETERMINES PAGING. 

\ 1* 

\ ,***«***««*«**•*««*«*««*«*«*««*•****««****«*«« 


26005 L0% * L0% + 1% 

\ GOTO 26100 IF L0% < 60% 

\ GOSUB 25000 

\ GOSUB 25100 INEW PAGE 

26100 RETURN lALL DONE 

32000 1************************************************ 

\ I" 

\ 1* ERROR SECTION. 

\ I* 

\ 1 ***««**««****•«*««*«««****«****•«*«**•««**«*«««« 

32005 IF ERR - 28 THEN 32767 

32010 ON ERROR GuTO 0 


32766 

\ 

\ 

\ 

\ 


32767 CLOSE #1% 
\ CLOSE #2% 
\ END 


LAWS OF PROJECT MANAGEMENT 

. . . from a friend at DETUS 

• No major project is ever installed on 
time, within budget, with the same 
staff that started it. 

• Projects progress quickly until they 
become 90% complete; then remain at 
90% complete forever. 

• If project content is allowed to change 
freely, the rate of change will exceed the 
rate of progress. 

• No system is ever completely debugged; 
attempts to debug a system inevitably 
introduce new bugs that are even harder 
to find. 

• Project teams detest progress reporting 
because it vividly demonstrates their 
lack of progress. 


Account! I 1 , 11 I Syatca Adnlniattotor 
Syatea Pack lOi SYSill Data of laat write 

UPD cluata, CPU Tlaa KCT Davtca Quota Connect 

227S 42)51 104007 01i}5 UMLIMIT 17i02 


POLL ACCOOIIT AEPOPT 


• RECORD HANAGbHENT SERVICES • 


DEVICE CLUSTERS! 


HPbOOS.nPS < (0> 


22 21-Oct-tl 1}|12 NPSSPL 1( 
1 0«-Oct-Sl lSil4 WROll It 
« 0«-Oct-tl 15il4 HDRDll If 

4 l»-Oct-tl OtiSf WORDll If 

) If-Oct-Sl C 

Iff 

1 20-Oct-tl Of!14 HORDll If 
f 20-Oct-Sl ll!}0 HORDll If 

5 20-Oet-tl 14)27 HORDll If 
3 20-Oct-tl 14)37 HDRDll If 
0 20-Oct-tl lfi2f BASIC If 
1 20-Oct-tl lfi2f BASIC If 
3 If-Oct-Sl 0fi2» HORDll If 
7 If-Oet-tl Ofilf HORDll If 
1 14-Oct-tl 14)54 TBCO If 
3 14-Oct-tl 14)55 TECO If 

12 14-Oct-tl lf)10 TECO If 
5 13-Oct-tl 15)lf TECO If 


22-Oct-tl Itt 22-Oct-tl 11)20 RSX 
lft21 lft22 lft21 lft24 

lft2t lft2f IftlO Iftll 


If 


t 22-Oct-tl 12:5t HORDll If 

5 22-Oct-tl ll)2f HORDll If 

20 23-Oct-tl 10)2f HORDll If 
31tt 

7 23-Oct-tl 11)23 HORDll If 
f 21-Oct-tl 11)25 HPSSPL If 
1 23-Oct-tl 11)30 BASIC If 
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BIO.BAS 

Frazer, Nationwide Data Dialog, Inc., Southampton, PA 


EXTEND 
! BIO.BAS 


BIORHYTHM GRAPH AND/OR COMPATABILITY PROGRAM 

The biorhythm theory is that from the day of one's 
birth, one's intellectual, emotional, and physical 
highs and lows fall into a 33-, 28-, and 23-day cycle 
respectively. A more positive reading indicates that 
powers or sensitivities are at a peak, and a negative 
reading implies the opposite; however, on days when the 
neutral or zero level is intersecting, the powers are 
unpredictable and can be suprisingly high or low. 

The compatibility reading is simply a measure of how 
in-phase two individual's cycles are. 

In examining my own biorhythm after-the-fact wnen I 
have had an extremely good or bad day, I have come to 
the conclusion that, for me, the whole concept is one 
big pile of FIRQB. (But it was fun to code.) 

PROPRIETARY NOTICE; 

by; Rob Frazer, Applications for 

Nationwide Data Dialog, Inc. 

70 James Way 
Southampton, PA 18966 

This software is furnished free (just what it's worth) 
to ail subscribers of the RSTS PROFESSIONAL. 

The author assumes no responsibility for any emotional 
insecurities, bad-karmic loops, suicides, mass-murders, 
Picasso's "Guernica", earthquakes, the Sex Pistols, or 
any bad luck which may blah, blah, blah... 


Z = .1E39 
GOSUB 19600 

! 

DIM G.POS%(101%) 

1 

KB.BDT$ » '22-JUN-51' 
\ DF.DAYS% = 15% 

\ F.OUT$ = 'KB;' 

! 

GOSUB 11000 


! DEMAND SCALE FACTOR ZERO 
! NORMAL PGM SETUP 


! HORIZONTAL POSITION 


! GET BIRTHDATE 


PRINT IKB%, 'Enter <G>raph, or <C>ompatibility. 
INPUT •KB%, Z$ 

Z% = ASCII(CVT$$(Z$,-1%)) 

GOTO 1000 IF Z% =71% ! G 

GOTO 2000 IF Z% = 67% 1 C 

PRINT #KB%, 'G or C, please...' 

GOTO 200 


GRAPH 


GOSUB 11100 
GOSUB 11200 
GOSUB 12000 

FOR I.OLD% = D1.OLD% TO D2.OLD% 
GOSUB 11300 
GOSUB 11400 

NEXT I.OLD% 

GOSUB 12200 

GOTO 100 


! GET GRAPH DAYS 
! GET 0/P DEV 
! GRAPH HEADING 


1 PRINT DAY OR DATE 
! COMPUTE, PRINT 


1 GRAPH TRAILER 


1 COMPATIBILITY 

! 

GOSUB 11500 

! 

GuSUB 11600 

1 

GOSUB 11700 

1 

PkINT •KB%, 'Anyone else ?'; 

\ INPUT iKB%, Z$ 

\ GOTO 2000 IF ASCII(CVT$$(Z$,-1%)) 

\ GOTO 32767 


1 OTHER'S BIRTHDAY 
! FIND % OUT OF PHASE 
! PRINT VALUES 


GET OPERATOR'S BIRTHDATE 


PRINT •KB%, 'Enter your birthdate in format DD-Mon-YY' 

PRINT IKB%, '< ' ;KB.BDT$; •>. 

INPUT •KB%, Z$ 

KB.BDT$ = CVT$$(Z$,4%) IF LEN(Z$) 

BDT.JULS = FNJULS(KB.BDTS) ! JULIAN FORMAT 

GOTO 11000 IF E% 

RETURN 

GET GRAPH DATES 
KB.D1$ = DATE$(U%) 

PRINT 4X0%, 'Enter 1st day of graph <';KB.D1$;'> ?'; 

INPU; ♦KB%, Z$ 

KB.DIS = CVT$$(Z$,4%) IF LEN(Z$) 

Dl.JULS = FNJUL$(KB.D1$) 

D1.0LD% = FNDAY.DIFF%(BDT.JULS,D1.JUL$) ! FIND DAYS OLD 

PRINT #KB%, 'You are '; D1.0LD%; ' days old as of '; KB.DIS 

PRINT 1X0%, 'Enter number of days to graph <';DF.DAYS%;'; 
INPUT #XB%, Z% 

Z% = DF.DAYS%.UNLESS Z% > 0% 

D2.0LD% = D1.0LD% ♦ Z% - 1% 

D1.D% = VAL(PIGHT(D1 .JUL$,3%) ) DAY# 

D1.Y% = VAL(LEFT(D1.JULS,2%)) 

MAX.Y% = FND.0%(D1 .Y%) ! DAYS IN THIS YEAR 

RETURN 



28690 Southfield Rd./Suite 291 
Lathrup Village, Ml 48076/(313) 569-5570 

A DIVISION OF 

ADVANCED COMPUTER SYSTEMS 


Developers of High Technology Software Products 
For D.E.C. Computers Since 1974 
Specialists in CTS-300 and CTS-500 

Partial List of Our Products: 

1. QSORT - An extremely high speed, reentrant sort 
for use on CTS-500/RSTS systems. By 
adding the available DIBOL/MCBA 
translator, QSORT becomes a software 
compatible, direct replacement for the 
D.E.C. and M.C.B.A. Dibol sorts. No 
program changes are normally needed 
with DIBOL SYSTEMS. 

2. SECURE - A major enhancement to the CTS- 

500/RSTS password scheme, secure 
provides for a controlled environment on 
large turnkey systems. Usable with any 
D.E.C. or non-D.E.C. language, no 
program changes are normally needed. 

3. MSIRCV - A reentrant system to interface the MSI 

Models 66,77 and 88 portable data col¬ 
lection terminals to a D E C. CTS-500/ 
RSTS system. MSIRCV produces files 
which may be used by any language. 

Custom systems and applications software is available 
for the most demanding problems. 

We have consulted for clients throughout the U.S., 
Canada and Mexico and have successfully solved a 
variety of difficult problems. 

Dealer inquiries invited. 


CIRCLE 97 ON READER CARD 


PROVERBS . from a friend at DECUS 

1. You cannot produce a baby in one month by impregnating 
nine women. 

2. The same work under the same conditions will be estimated 
differently by ten different estimators or by one estimator at 
ten different times. 

3. The most valuable and least used word in a project manager s 
vocabulary is “NO.” 

4. You can con a sucker into committing an unreasonable 
deadline, but you can’t bully him into meeting it. 

5. The more ridiculous the deadline, the more it costs to try to 
meet it. 

6. The more desperate the situation, the more optimistic the 
situatee. 

7. Too few people on a project can’t solve the problems—too 
many create more problems than they solve. 

8. You can freeze the user’s specs but he won’t stop expecting. 

9. Frozen specs and the abominable snowman are alike: They are 
both myths and they both melt when sufficient heat is 
applied. 

10. The conditions attached to a promise are forgotten and the 
promise is remembered. 

11. What you don’t know hurts you. 

12. A user will tell you anything you ask about—nothing more. 

13. Of several possible interpretations of a communication, the 
least convenient one is the only correct one. 

14. What is not on paper has not been said. 

15. Parkinson and Murphy are alive and well—in your project. 
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ITS sns PM 
MONDAY 


Tired of writing depreciation journals in 
3,5;GL, your third assistant bookeeper 
just discovered the joys of 4,0;PAY. 

He's on his way from the bank 
to the airport. 


LOTS OF LUCK! 


L©CK-11 


SPD on Page 67 


CIRCLE 80 ON READER CARD 


11280 

11300 


GET OPTIONAL Ol’TPUT DEVICE 

PRINT •KB%, 'Output to ■•; F.OUTS; 

\ INPUT LINE iKB%, Z$ 

N Z$ « CVTS$(Z$,-U) 

' F.OUT$ = Z$ IK LEN{ZS) 

' IF F.OUTS = 'KB:' 

THEN F.OUT» = KB* 

\ GOTO 11280 

F.OUT% - 2% 

\ OPEN F.OUTS FOR OUTPUT AS FILE F.OUT% 


PRINT THE DAY, OR THE WHOLE DATE IF CRITICAL 


11390 

11400 


D% * D1.D% + I.OLD% - D1.OLD% 

\ D% = 1000% + D% - MAX.Y% IF D% 

\ DS « DATES!(D1.Y%-70%)*1000% + D%) 

\ IF I.OLD% = D1.0LD% OR 

LEFT{DS,2%) = '01' 

THEN PRINT IF.OUT%, DS; 

ELSE PRINT iF.OUT%, LEFT(D$,2%); 

! 

RETURN 


1 


I.P » FNSINd .OLD%*2 
\ I.E = FNSINd.OLD%*2 
\ 1.1 * FNSINd .OLD%*2 
! 

\ G.POS%d%) = 32% 

\ G.POS%(26%) = ASCII( 

\ G.POS%( 0%) * 51% 

\ G.POS%(26.5+25%*!.P) = ASCII('P') 
\ G.P0S%(26.5+25%*I.E) = ASCII('E') 
\ G.POS%(26.5+25%*I.I) » ASCII('I') 
\ change G.P0S% to DS 
\ PRINT •F.OUT%, TABd2%); D$ 

\ RETURN 


> MAX.Y% I YEAR ROLLOVER i. 


PRINT THE WHOLE DATE i. 

! ONLY IF IMPORTANT 


11590 

11600 


RETURN 

FIND THE THREE PHASE PERCENTAGES 
DAY.DIF% 


C.P 

= 

23. 

* (X/23. 

- FIX(X/23.)) 

! HOW FAR OUT OF PHASE 

ii 

C.E 


28. 

* (X/28. 

- FIX(X/28.)) 


& 

C.I 

= 

33. 

* (X/33. 

- FIX(X/33.)) 


& 

C.P 

_ 

23. 

- C.P 

IF C.P > 23./2. 

! ROUND TO FORWARD 

& 

C.E 

a 

28. 

- C.E 

IF C.E > 28./2. 

! OUT OF PHASE 

S. 

C.I 

= 

33. 

- C.I 

IF C.I > 33./2. 


& 

P.P 


100, 

.*(!.- 

C.P/(23./2.)) 

! PERCENTAGE OF 

& 

P.E 

s 

100, 

. * (1. - 

C.E/(28./2.)) 

! HALF-CYCLE OUT 

& 

P.I 

= 

100, 

. * (1. - 

C.1/(33./2.)) 


& 


\ RETURN 


DISPLAY CALCULATED PERCENTAGES 


! 


PRINT iKB%, 'The compatibility percentages are:' 

\ PRINT fKB%, 'Physical '; 

\ PRINT iKB% USING 'lit.ll', P.P; 

\ PRINT #KB%, '%' 

\ PRINT 1X0%, 'Emotional '; 

\ PRINT iKB% USING '•••.••', P.E; 

\ PRINT iKB%, '%' 

\ PRINT iKB%, 'Intellectual '; 

\ PRINT iKB% USING ’###.#•', P.I; 

\ PRINT iKB%, '%' 

\ PRINT #KB% 

\ PRINT #KB%, 'Average 

\ PRINT iKB% USING 'lil.ii', (P.P+P.F+P.T)/3.; 

V PRINT #KB%, '%' 

\ PRINT #KB% FOR 1% = 1% TO 3% 

\ RETURN 

HEADING FOR BIOGRAPH 

PRINT iF.OUTI FOR 1% = 1% TO 4% 

^ PRINT iF.OUT*, TAB(30%); 'Diorhytnm for ';KB.DDTS 

V PRINT IF.OUT% 

\ PRINT #F.OUT%, ' Date '; TABd2%); 

•-_:_:_:_:_ 0 _:_:- 

\ RETURN 
! 

• GRAPH TRAILER 

PRINT iF.OUT%, TABd2%); 

\ PRINT #F.OUT% FOR I* = 1* TO 6% 

\ RETURN 


FNDAY.PIFF% 


DERIVE DIFFERENCE IN DAYS 


DEF FNDAY.DIFF%(X$,Y$) 

\ Y% = VAL(LEFt(XS,2%)) 

\ S% = FND.0%{Y%) - VAL(PIGHT(XS,3%)) 

' Y% = Y% + 1% 

\ GOTO 13008 IF Y% • VAL(LEFT(YS,2%)) 

' S% = S% + FND.0%(Y%) 

^ GOTO 13004 

S% = S% - FND.0%(Y%-1%) 

\ S% = S% ♦ VAL(RIGHT(YS,3%)) 

' FNDmY.DIFF% = S% 

\ FNEND 

FND.0% = NUMBER OF DAYS IN YEAR Y% 

DEK FND.Q%(Y%) = 365% - (Y% 0% 

AND Y% « 4% * (Y%/4%)) 


1ST YEAR 
PORTION 


! MORE TO COME i. 
! DAYS PER YEAR & 


! NOT WHOLE YEAR b 
! PORTION i 


! NON-CENTURY 
! LEAP YEAR 


I ' 


FNJULS 


DERIVE JULIAN DATE "YYDDD" 

! UPPER CASE 


DEF FNJULS(DS) 

\ MS = CVTS$(MID(DS,4%,3%),32%) 

\ M% = INSTR(1%, 

'XXJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC,MS) / 3% & 

\ E% = (M% = 0%) 

\ D% = VAL(MID('XX000031059090120151181212243273304334 ' , (, 

3%*M%,3%)) ! ODD DAYS FROM PRIOR MONTH & 

\ Y% = VAL(RIGHT(DS,8%)) 4 

\ D% = D% + 1% IF Y% = 4% * (Y%/4%) ! LEAP YEAR & 

IF M% > 2% ! AFTER FEB. & 

\ ZS = NUM1S(1000% + VAL(LEFT(D$,2%)) + D%) & 

\ FNJULS = RIGHT(D$,8%) + RIGHT(ZS,2%) 6 

\ FNEND <- 


- STANDARD INIT 

ON ERROR GOTO 19800 
\ KB%=12% 

\ OPEN 'KB:' AS FILE KB%, MODE 4% 

\ RETURN 


A L 1 Z A T I 0 N 


1 VALUES 


(. 

19800 

!>-L 0 C A 

L 



i. 


E%=ERR 


'PI/23.) 

! PHYSICAL 

&> 


1 

GOTO 32000 


'PI/28.) 

! EMOTIONAL 

& 

19990 


'PI/33.) 

! INTELLECTUAL 

& 


1 



& 

20000 

1>- STAN 

D 

FOR 1% * 

1% TO 51% 

t, 


! 


•) 


& 

27950 

DEF FNSIN(X) 




& 


\ X = X - (2 * PI 

* 


E, R R O R 


ROUTINE. 


! PRINT ONE LINE 


FIND THE OTHER BIRTHDATE 


PRINT •KB%, "Enter your potential partner's birthdate" 

\ PRINT •KB%r ' in format DD-Mon-YY.'; 

\ INPUT •KB%, ZS 
\ PT.BDTS = CVTSS(ZS,4%) 

\ PT.JULS = FNJULS(PT.BDTS) 

\ GOTO 11520 IF PT.JULS < BDT.JULS 
! 

\ DAY.DIF% = FNDAY.DIFF%(BDT.JULS,PT.JULS) 

\ PRINT #KB%, 'You are';DAY.DIF%;'days older'; 

\ GOTO 11590 
! 

DAY.DIF% = FNDAY.DIFF%(PT.JULS,BDT.JULS) 

\ PRINT IKB%, 'You are';DAY.DIF%;'days younger'; 


FIX(X/(2*PI))) ! SUBTRACT 2PI'S 

\ SUM, TRM = X 
\ FOR N% = 2% TO 999% 

\ GOTO 27954 IF ABS(TRM) < 0.00001 ! PRECISION 

\ Y% = 2%*N% - 1% 

\ Y = -(X*X)/(Y%*(Y%-1%)) ! TERM MULTIPLIER 

\ TRM = TRM * y 

\ SUM = SUM + TRM 

\ NEXT N% 

J 

SUM = SGN(SUM) IF ABS(SUM) > 1. 

\ FNSIN = SUM 
\ FNEND 


32000 

32500 

32560 

32767 


!> 


STANDARD 


ERROR 


TRAPS 


ON ERROR GOTO 0 
\ STOP 


DEF FNES{E%) = CVTSS(RIGHT(SYS(CHRS(6%) 

+CHR$(9%)+CHRS(E%)),3%),5%) 






























February 1982 


page 63 


f 

i 


Hinditron 

Offshore Software Capability. 
It Costs About 50% Less. 


Hinditron Computer Systems 
and Consultants has the 
offshore software facility to 
help you get more from 
your computer for less. 

Hinditron's software 
development centre in 
Bombay, India, is geared to 
meet your specific 
requirements, using a wide 
range of computer and 
microprocessor systems. 

Hinditron offers software 
services for developing Application 
Software, System Software, Process 
Control Software and Software 
Conversions on turnkey and contract 
basis. 

Hinditron offers all this for almost 
half the prevailing rate. 

The Company 

Hinditron has exclusive represent¬ 
ation rights for DEC, Tektronix, 
Applicon, EPS and several other 
internationally reputed companies 
in India. The company provides 
TOTAL technical support, training 
and consultancy services to its 
clients. 

Hinditron has a multi-disciplinary 
team of over 200 professionals 
including software engineers, 
business applications specialists 
and hardware engineers. 

Hinditron's software development 
centre is equipped with a PDP-11/34 
System and will shortly acquire a 
VAX 11/780 System. 

Hinditron has developed 
sophisticated software products and 
carried out software projects in 
U.S.A.; U.K.; Australia. Hew Zealand 
and the Middle-East, South-East 
Asian and African regions. DEC and 
a number of DEC OEMS have availed 
of these services. 




HINDITRON“ 

Hinditron Computer Systems and Consultants 

6450 NE 183, Seattle, WA 98155 

□ Please send me information on how I can save up to 
50% on my computer software. 

□ Please have a representative call. 


name- 

Title- 

Company- 
Address— 


Phone 


City — 
state- 


Zip 


Some of Our Current 
Projects: 

□ Development of a 
DBMS based on-line 
Accounts Payable 
System under RSTS/E - 
BASIC PLUS II for a leading 
software house in U.S.A. 

□ Development of an 
on-line DBMS-based 
software for insurance 
applications fora leading 
DEC OEM in USA. 


Development of PASCAL Compiler 
fora reputed manufacturer of 
electronic instruments in U.S.A. 


□ Development of an I/O Handler in 
MACRO-11. 

□ Conversion of software packages 
In rORTRAH from RSX-llM to IAS 
Operating System fora leading 
DEC user. 

Our Clients Know The System 
Works 

Our national and international 
clients have put Hinditron's offshore 
capabilities to work in everything 
from batch to on-line DBMS, from 
business applications to engineering 
design and graphics to hardware 
design. 

And they all know IT WORKS. 

For more information on how you can 
join us offshore, return the coupon 
below or call Red Carlson at 
(206) 486-6555. 


» 


mnOITROM COMPUTER SYSTEMS S; 

COITSULTAMTS PVT. LTD. 

Eros Building, 
42, Maharshi Rarve Road, 
Bombay 400 020. india 

Teiex: 011-2326 India. 


L ...........rf 

DEC, RSTS/C, RSX-llM, IAS are the registered trademarks of Digital Equipment Corporation, U.S.A. 
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THE LOW SPEED SPOOLING PACKAGE 

By M. H. Koplitz, 


1.0 INTRODUCTION 

The low speed spooling package will enable the user to 
spool out reports to terminals without the need of the RSTS 
spooling package. There are three programs involved in the 
package. They are SPOLER.BAS, SPOL1 .BAS and CHAR.BAS. 

1.1 SPOLER.BAS 

SPOLER.BAS is the program which does the spooiing. 
The program can either be run directly or chained to with 
the critical data being passed to it by core common. 

1.2 SPOL1.BAS 

SPOL1 .BAS is used to create a virtual array file of the 
accounts on the RSTS system. Every time a new account is 
added to the system SPOL1 .BAS must be run. No user input 
is needed for this program. 

1.3 CHAR.BAS 

This program is not used in the spooling package. It 
aliows the user to print out messages in the iarge block let¬ 
ters that RSTS spoolers use. The user inputs an output 
device for the block letter messages to be printed, or stored 
(on disk). Then he inputs the iines he wishes to have con¬ 
verted to block letters. When the input is finished <CR> 
wiil end the program. The output can be queued to a printer 
if so desired. 

INSTALLATION OF THE PACKAGE 
2.0 How to Install 

Log into a privileged account. If the package is on 
magnetic tape medium, copy it to disk. Three files exist in 
the package. Make sure that you are in the BASiC-PLUS run¬ 
time system. Then old each program and compile them in 
[1,0] with a protection code of 232. The three fiies are 
SPOLER.BAS, SPOLI.BAS, CHAR.BAS. Then run [1,0]SP0L1. 

SP0L1 .BAS wiil create one of the data files needed by 
SPOLER.BAS. A second file is optionai and can be created by 
any editor. This file is SPOLER.DAT and MUST reside in [1,0]. 

2.1 Contents of SPOLER.DAT 

SPOLER.DAT contains information about aiias names 
that you have set up for terminals. If you wish to have KBO: 
known to SPOLER as "CONSOLE” then an entry in 
SPOLER.DAT for "CONSOLE" must be set up. For each alias 
SPOLER.DAT will contain the following attributes: 

1) Alias name 

2) Number of lines per form 

3) KB number of aiias 

4) Width of form. 

Each entry is followed by a carriage return. 

NOTE: If a terminal is busy for an aiias the requested 
spooling can be sent to the RSTS spooling system with the 


form name equal to the alias. Therefore it is good poiicy to 
give alias names to terminals which will at some time of the 
day have a RSTS spooler running on that form name. 

The first value of SPOLER.DAT is a number informing 
SPOLER how many entries there are in the file. Example of a 
SPOLER.DAT: 

3 

PC 

68 

24 
132 
PURCH 
68 

25 
132 
PINES 
50 

31 

80 

If SPOLER.DAT does not exist then SPOLER assumes 
that there aren’t any alias names. Note that SPOLER.DAT 
must reside in [1,0]! 

SPOLER.BAS 

3.0 OVERVIEW 

SPOLER.BAS can be run in two ways: 

1) Run directly (RUN [1.0]SP0LER). 

2) Or chained to (CHAIN “[1 .OjSPOLER” 500) with commands 
in core common. 

NOTE: When run directly SPOLER will ask for all the in¬ 
formation it needs to do its job. 

SPOLER does the following functions (listed in 
chronological order): 

1) Gets information about terminal name, form sizes, 
width, etc. 

2) Determine account using SPOLER.BAS. 

3) Determine whether job is on pseudo keyboard or not. 

4) If alias give translate it to terminal number. 

5) Analyze file name for account number. 

6) Analyze file name for device number. 

7) Analyze file name for body and extension. 

8) Do a directory lookup of file name. 

9) Convert terminal name to terminal number. 

10) Assign terminal. 

11) Do printing. 

3.1 RUNNING SPOLER DIRECT 

Use the RUN command to invoke SPOLER.BAC out of 
account [1.0]. The program banner will be displayed fol¬ 
lowed by several questions. 






All the financial questions 

recorded in the Minutes, 
answered in seconds. 


If you ever wished you had inside 
information on what would happen 
under certain circumstances, you are 
a prime candidate for the FPS-80 
service from RTZ Timesharing. 

With FPS-80 you can have any 
information about financial planning in 
seconds - as an instant display on 
your own VDU or as a permanent 
printed record. 

When you subscribe to FPS-80, 
you are able to compile a store of 
information on your company on our 
computers. You will be linked directly 
to our service, and by dialling a special 
number on your own telephone, you 
are immediately connected and free to 
key in any questions you might have 
that could affect your company’s 
financial stability. 

On the other hand, if you should 
wish to work from your own computer, 
no matter what size, we may still be 
able to help - just ask for further details. 

The FPS-80 system is highly 
flexible and easy to use - even for 



novices. It’s backed by the technical 
knowledge, financial expertise and 
excellent service for which RTZCS 
is renowned and what’s more, 
is surprisingly inexpensive. 

If you have 
any questions 
about how to 
ask questions 
about the 
future, fill in the 
coupon today. 


r 


Please send me further details on FPS-80 

Name_ 

Company__ 

Address_ 


Tel No. 


Timesharing 

Whenever it’s a question of money. 


Post to: David Holroyd, RTZ Computer Services Ltd., 
103 Jermyn Street, London SW1Y 6EB. Tel: 01-930 4163. 


I 

m| 
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EC SYSTEMS 


LEX-11 

WORD AND DATA 
PROCESSING FOR 
VAX, PDP-11 AND 
LSI-11 


• Integrated word, data 
list processing 

• Supports RT-11, TSX- 
PLUS, RSX-11M, RSTS/E, 
UNIX, IDRIS, IAS, VMS 

• Fast, friendly, flexible 

• Calculator, Graphics 

• Spelling Dictionary, 
Forms 

• Custom modification 
easy 

• ASCii Formated Fiies 

• Report Writer, Data 
Entry 

• OEM Discounts 

EEC Systems 

Dept. RST 

286 Boston Post Road 
Wayland. MA 01778 
(617) 358-7781/2 
(617) 443-6376 
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RUN [1 .OJSPOLER 

SPOLER V1.0 Installation name Spool files to terminals 

File name? XXXXXX 

Terminal to spool to? XXXXX or KB??: 

Form width? XX (only if KB??: answered above) 

Form size? XX(only if KB??: answered above) 

Number of copies? XX 

There are two switches that are available when answer¬ 
ing the above questions. 

They are "/D" on the filename indicating that the file is 
to be deleted after it is spooled, and "/DET" on the terminal 
name (or KB??:) which will cause SPOLER to detach and 
print 'SPOLER is detaching in job slot ??". 

If SPOLER runs detached it will log itself off when done. 
NOTE: Filename must be in the following format: 

[xxx.yyy]Device:Filename.ext 

If the account is left out the current account is assumed. 

If the Device: is left out then SYO: is used 

3.2 CHAINING TO SPOLER 

The information needed for SPOLER must be placed in 
core common in the following order and in the following 
format. (Filename):(Terminal name):(Program to chain 
to):{line number to goto in chained program):(number of 
copies) 

The semicolons are used as delimiters, the parens are 
not used. An example of the command is: 

SPOLER.BAS:PURCH:[1.51 ]ZZM: 1:5 

SPOLER will print five copies of SPOLER.BAS to the PURCH 
terminal then chain to [1,51]ZZM at line 1. To delete a file 
after spooling place the ”/D" switch described in 3.1 on the 
filename option. 

KB??: can be substituted in place of the terminal name. 
If this is done the questions. 

Form size of KB? XX 
Form width? XX 

will appear. Note that the "/DET” switch does not work 
when chaining to SPOLER.3-2 Chapter 3 SPOLER.BAS 
SPOLER must be chained to at line 500. 

3.3 DETACHED ERRORS 

If the terminal specified is not available during spooling 
in the detached state the filename given is queued to the Ip: 
with the form name equal to the terminal name. If a ter¬ 
minal number is given and it is not available then an error is 
generated to OPSER and the SPOLER terminates. 

If any other error occurs OPSER is sent a message about 
the error and SPOLER terminates. 

3.4 ATTACHED ERROR ON TERMINAL AVAILABILITY 

The only recoverable (non-fatal) error is when the ter¬ 
minal requested for is not available. SPOLER then gives the 
following options: 

%Terminal not available for printing 
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1. Wait (10 times then queued up) 

2. Queue to spooler (report available 7 ? 7 ? 7 ? 7 ? 7 ? 7 ?) 

3. Queue to high speed printer 
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Option 2 is not given when the "hard” terminal number was 
given. The ???? are replaced by the following depending on 
the time of day: 

a. after a few minutes - between 16:00 and 10:00, also 
between 12:00 and 13:00 

b. after 14:00 - between 13:00 and 14:00 

c. after 12:00 - between 10:00 and 12:00 

These values can be changed by reviewing line 32510 of 
SPOLER.BAS. If the choice is option 1 then SPOLER will at¬ 
tempt up to ten times to get the terminal. SPOLER will print 
a message after every attempt. After ten attempts it prints 
out ‘‘?Doing queing” and queues up the request. 


3.5 ERRORS THAT CAN OCCUR 


?Core common error 

?lllegal account specs 
?Protection violation 

?Illegal device specs 
?No file ext. given 

?Can not find terminal name 

?Bad line number passed 

?lllegal account number 

?lllegal terminal ^ specified in 
KB?? 

?Can not find file or account 
?Error to output terminal 

?tC trap 

?Chaining to prog, not found 
?lllegal switch on filename 
?Deletion of file in error 
?Unknown error at line ?? 


The core common string was 
missing some element or 
delimiter. 

The account is not in [xxx.yyy] 
format. 

A non-privileged account at¬ 
tempted to print a file not in his 
account. 

The device is illegal. 

A file extension was not 
specified. 

The terminal name given is not 
in SPOLER.DAT. 

The line number field in the core 
common is not an integer. 

The account number is not a 
legal RSTS account. 

The ?? is not a legal number. 

The file specified to print can not 
be found. 

A error occurred when attempt¬ 
ing to send a line out output to 
the terminal. Could be a hung 
device? 

A t C was typed. 

The program to chain to was not 
found. 

A switch other than /DET was 
given. 

For some reason the file deletion 
could not occur. 

Some error occurred that is not 
taken care error: ?? of by a 
standard error. 


SP0L1.BAS and CHAR. BAS 
4.0 SP0L1.BAS 

SP0L1 creates a virtual array file in account [1,0] that is 
needed by SPOLER to print the names associated with the 
account numbers. There is a limit in SP0L1 of 150 accounts. 
This can be increased by adjusting the DIM statements in 
both SP0L1 and SPOLER. When new accounts are added run 
SP0L1 to add the new entry to the virtual array. Note that 
SP0L1 uses $ACCT.SYS to create the virtual array so 
$ACCT.SYS must be kept up to date. 

4.1 CHAR. BAS 

CHAR is a small utility which will print any message in 
the block letters to any output device. It also resides in [1,0]. 


Software 

Product 

Description 

Product Name: LOCK-11 Version 2.2 
Description: 

Lock-11 is a security superstructure built upon the standard RSTS 
password structure that provides the following extensions: 

• Absolute control of system access by keyboard. Manager may 
limit any keyboard to certain accounts or groups of accounts 
and control time as well as day of week access. 

• Password knowledge is no longer carte blanche system access. 
System detects unauthorized use of passwords. Privileged 
passwords don’t work on non-privileged keyboards. Non- 
privileged passwords work only on specified keyboards. 

• Real time system surveillance. Manager specifies a list of alarm 
keyboards which log all infractions and probes as they happen. 
Opser is not required. 

• Auto-login (with or without password) and chain with specified 
core common contents by KB. 

• Manager may establish special priority/burst settings by KB. 
Manager may establish default output protection code, @ as¬ 
signment and up to three specific user logicals for each KB. De¬ 
fault RTS is also selectable. All assignments are made at log-in. 

• Manager specifies a list of console keyboards from which securi¬ 
ty file editor may operate. 

• Manager may define a KB-specific access-denied message. 

• Manager may specify number of retries before access-denied 
and number of access-denied messages before line disable. 
Hangup on access denied is optional. All above may be specified 
on a per-kb basis. 

• A macro DYNPRl program is included which performs the 
following functions: 

• Users may be dispatched into ten separate priority queues, 
separately tunable on-line. Each queue has ten levels. Queues 
are selectable by KB. 

• Program detects hibernating jobs and announces the fact on 
ALARM keyboards. Privileged jobs hibernating cause extra 
loud and long alarms. 

• The program produces almost no load in operation and runs 
in 5K words. 

• Program will hold up to fourteen files open for performance 
purposes. 

Minimum Hardware/Software Required: 

Any valid RSTS/E system running Version 7.0 or later. Any version 
of RSX emulation is needed. 

Support: See License Agreement 
Installation: User installed 
Ordering Information: 

Available on 9 track 800 or 1600 BPI tape. Multiple CPU discount 
schedule: 

First license 0% discount 

Second thru Third license 50% discount 

Fourth thru Twentieth license 70% discount 

Licensed users desiring source code for internal use only must ex¬ 
ecute a separate Program Sources License Agreement. Sources are 
available at ten times the initial license fee. 

License Fee: 

Single CPU license: $950.00. Annual maintenance at 12% of cur¬ 
rent list price. 

Contact: 

Dave Mallery 
Nationwide Data Dialog 
215-364-2800 
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EXTEND 


111,111 M'OLTK.HAl 


!* This PnOGKAM WAS WRITTEN BY M M KOPLITZ, SYSTEM ADMINISTRATOR, 


!* 05-AUG-81. 

!* THIS PROGRAM WILL SPOOL FILES TO LOW SPEED PRINTERS(TERMINALS). 
!* A TABLE EXISTS IN THE PROGRAM WHICH WILL IDENTIFY THE 
!* DIFFERENT PRINTERS. THIS TABLE FILL BE FILLED IN BY THE 
!* SYSTEMS MANAGER AND IS UPDATED AFTER EVERY HARD COPY TERMINAL 

!* change. 

I* THE PROGRAM CAN BE ENTERED IN TWO WAYS. 1) IS BY CHAINING TO 
!* LINE 500, IN CORE COMMON MUST BE THE FOLLOWING INFO; 

!* A) Fist TO SPOOL WITH ACCOUNT (IF NO ACCOUNT ONE IN ASSUMED), 
!* B) TERMINAL TO SPOOL TO. 

!* C) PROGRAM TO CHAIN TO. 

!* D) LINE NUMBER TO CHAIN TO. 

1* All data will be SEPARATED BY SEMICOLONS. 


* 2) RUNNING THE PROGRAM DIRECTLY WILL CAUSE PROMPTS TO COME 

* UP FOR THE ABOVE INFORMATION 


* REVISION #1 - M H KOPLITZ OCTOBER 2, 1981 

* PURPOSE: WHEN KB; IS ENTERED AS THE TERMINAL TO SPOOL TO 

* KB:, THE REPORTS GOES TO KBO:. CORRECT THIS 

* PROBLEM BY LINE 1025 AND CHANGES TO 1030. 


100 PRINT "SPOLER VI.1 

" Spool files to terminals" 

\ ON ERROR GOTO 25000 

\ X$ * SYS(CHR$(6%)+CHRS(-7%)) 

\ ATTACHtD% » 1% 

\ Print 1 print banner, set 

t FLAGGING AND "C 
! TRAP. 

110 PRINT "File name"; 

\ INPUT LINE FILE.NAME$ 

\ FILE.NAME$ = CVT$$(FILE.NAME $,4%) 

\ GOTO 32767 IF FILE.NAME$ * "\" 

\ INPUT "Terminal to spool to"; termINAL.name $ 

\ GOTO 110 IF TERMINAL.NAMES * "\" 

\ GOTO 120 IF LEFT(TERMINAL.NAME$,2%) <> "KB" 

\ input "Form width";KB.WIDTH% 

\ INPUT "Form size";TERMINAL.SIZE% (TERMINAL NAME AND 

! FILE NAME TO USE. 

*«««««««**•««*«••«««««**.««*«*««««*«**«****«*«*«**«« 

\!* 

\l* FILE NAME MUST BE IN FOLLOWING ORDER; 

\l* 

\I * [XXX,YYY]DEVICE:FILENAME.EXTENSION 

\1* 

\!* ACCOUNT AND/OR DEVICE CAN BE LEFT OUTl 
\!* 

\1* ACCOUNT DEFAULTS TO SYO;, ACCOUNT TO CURRENT. 

**«««*•««.*******««•*«****•**«*««*****««**«««*«***** 


120 INPUT "Number ot copies";Q$ 

\ GOTO 110 IF OS = "\" 

\ C9% » VAL(0$) 

\ T% = INSTR(1%,TERMINAL.NAMES,"/") 

\ GOTO .140 IF T% = 0% 

\ XS » TERMINAL.NAMES 

\ TERMINAL.NAMES = LEFT(TERMINAL.NAMES,T%-1%) 

\ INSTRUCTIONS » MID(XS,T% + 1%,LEN(XS) - T%) 

\ GuTO 130 IF ASCII(INSTRUCTIONS) * ASCII("D") 

\ PRINT "?Illegai switch" 

\ GOTO 110 (SEE IF THE DETACH 

! SWITCH WAS PUT ON 
! THE TERMINAL SPEC. 

! ALSO GET NUMBER 
1 COPIES. 

1 IF SO CHECK LEGALITY 
J ELSE ERROR OUT. 

130 Print "SPOLER is detaching in job slot "; 

PEEK(518%)/2% 

\ XS = SYS(CHRS(6%)+CHRS(7%)) IDO THE DETACH HERE 


140 GOTO 600 


IGOTO PROCESSING 
1 SECTION. 


500 

\ 

\ 

\ 


\!* 

\!* 

\!* 

\!* 


\S* 

\ I " 
\i* 

\i* 

\!* 

\1* 

\!"' 

510 

\ 

\ 

\ 

\ 


\ 

\ 

\ 

\ 


ON ERROR GUTO 25000 
XS = SYS(CHRS(6%)+CHRS(-7%)) 
XS = SYS(CHRS(7%)) + ";" 
chained.TO% «= 1% 

ATTACHED% * 1% 


IGET CORE COMMON 
1 STRING, Since We 
1 ENTERED VIA CHAIN 
I STATEMENT. 


AT LINE 500 IS WHERE ONE WOULD CHAIN TO FROM ANY 
PROGRAM. CORE COMMON NEEDS THE FOLLOWING 
SPECS; 

Fltfc name DELIMITED BY ; 

TERMINAL NAME (COULD BE KB??) DELIMETED BY ; 

Program to chain to delimeted by ; 

LINE NUMBER IN PROGRAM TO CHAIN TO DELIMITED 
BY ; 

NUMBER COPIES 


T% = INSTR(1%,XS,";") 

GOTO 550 IF Tl = 0% 

FILE.NAMES “ LEFT(XS,T% - U) 

Tl% = INSTR(T% + 1%,XS,";") 

GOTO 550 IF Tl% = 0% 

TERMINAL.Names = MID(XS,T% + 1%,T1% - T%-1%) 

T2% = INSTR(T1% + 1%,XS,";") 

GUTO 550 IF T2% = 0% 

PROGRAM.TOS » MID(XS,T1% + 1%,T2% - Tl%-1%) 

T3% = INSTR(T2% + 1%,XS,";") 

GOTO 550 IF T3% = 0% 

LINE.NUMBER% * VAL(MID(XS,T2% + 1%,T3% - T2%-1%)) 
T4% = INSTR(T3% + 1%,XS,";") 

GOTO 550 IF T4% = 0% 

C9* = VAL(MID(XS,T3% + 1%, T4% - T3%-1%)) 


\ GOTO 575 


550 ERROR.FLAG% = 1% 


ITAKE THE CORE COMMON 
! STRING AND BREAK 
! IT UP INTO THE 4 
I COMPONENTS. GOTO 
! 550 IF ERROR 
1 OCCUKRS. 

I SIMPLY SET ERROR 
I FLAG TO 1% THIS 
1 MEANS THAT SOME 
1 COMPONENT OF THE 
I CORE COMMON IS 
I MISSING. 


575 INPUT "Form size of KB";TERMINAL.SIZE% 

IF LEFT(TERMINAL.NAMES,2%) * "KB" 

\ INPUT "Form width";KB.WIDTH% 

IF LEFT(TERMINAL.NAMES,2%) - "KB" ISINCE KB SPECS 

1 ON CHAIN GET THE 
1 FORM SIZE. 


600 A% » PEEK(PEEK(PEEK(520%) + 8%) * 24%) 

\ PROJ.NUMBER% * SWAP%(A%) AND 255% 

\ PROG.NUMBER% « A% AND 255% JGET THE PROGRAMMER 

1 AND PROJECT NUMBER. 


610 IF ((PEEK(PEEK(PEEK(PEEK(520%)))+2%) 

AND 255%) - (PEEK(518%) AND 255%) 

AND 

(PEEK(PEEK(PEEK(PEEK(520%)))+6%) 

AND 8192%) « 8192%) 

THEN 

ATTACHED% » 1% 

ELSE 

ATTACHED% « 0% 1 DETERMINE WHETHER 

I WE ARE ATTACHED OR 
I DETACHED. PG 7-150 
1 PROGRAMMERS MAN. 


620 X» - SY&(CHRS(6%)+CHRS(26%)+CHRS(0%)+CHRS(0%)) 

\ YS * MID(XS,5%,1%) 

\ PSEUDO.NUMBER% » ASCII(YS) lARE WE ON A PSEUDO 

I KEYBOARD? PSEUDO 
I .NUMBER% > 0% 

I MEANS WE AREN'T 


630 GuTO 32000 IF ERROR.FLAG% 


IGOTO ERROR HANDLING 
1 SECTION IF ERROR 
1 .FLAG% -1% 


640 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


OPEN "I1,01SP0LER.DAT" FOR INPUT AS FILE #10% 

INPUT il0%,KB.TABLE%(0%,0%) 

FOR X% = 1% TO KB.TABLE%(0%,0%) 

INPUT #10%,KB.TABLES(X%) 

INPUT I10%,KB.TABLE%(X%,1%) 

INPUT #10%,KB.TABLE%(X%,2%) 

INPUT #10%,KB.TABLE%(X%,3%) 

NEXT X% 

CLOSE 110% 

ITERMINAL TABLE, 

I ZERO ELEMENT OF 
1 INTEGER TABLE IS • 

1 ENTRIES. INT. TABLE 
1 IS NUMBER LINE PtR 
I PAGE ON PRINTER. THE 
1 SECOND VALUE IS THE 
1 TERMINAL NUMBER. 


\, «««*«««*««*««««««««***«««««««**««««*«*«**««**«****«««* 

\I* 

\l* This Fltt Is UNDER THE NAME [1,0]SPOLER.DAT. 

\!* IT CONTAINS THE NAMES OF THE KBs AND SPECS ABOUT 

\!* EACH. THE ORDER IS: 

\!* ITEM ONE MUST BE NUMBER TERMINALS IN 

\!* FILE 

\1* NAME OF TERMINAL(ALIAS) 

\!* # LINES/FORM 

\1* KB NUMBER 

\!* WIDTH OF PRINTER 

\!* 

\!* FOR EACH TERMINAL. 

\!* 

\,«*«•«•*«*««•««**««*«*«********««*«*«*«««•««««***«««*«• 


700 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

710 

\ 

\ 


INITIALIZATION COMPLETE, WE HAVE ALSO DETERMINED 
OUR STATUS ON THE COMPUTER, TO WHETHER WE ARE 
DETACHED OR ATTACHED OR WHATEVER. 

NOW LET US CHECK TO SEE IF WE HAVE ACCESS TO THE 
FILE WE WISH TO PRINT. 


T$ » CVT$$(FILE.NAMES,64%) 
T% » INSTR(1%,T$,")") 

GOTO 800 IF T% « 0% 


!CONVERT ALL (I TO 
! (). THEN SEE IF 
I ANY EXIST. IF NONE 
I THEN ASSUME CURRENT 
! ACCOUNT. ALLOW PRIV 
1 ACCOUNT ACCESS TO 
! ALL FILES. 


7z0 FlLt.NAMES = RIGHT(FILE.NAMES,T% + 1%) 

\ ACCOUNTS = LEFT(TS,T% - 1%) 

\ T% =* INSTR(1%,ACCOUNTS,",") 

\ GOTO 780 IF T% « 0% 

OR ASCII(ACCOUNTS) <> ASCII("(") 

\ FlLt.PROJ% = VAL(MID(ACCOUNTS,2%,T% - 2%)) 

\ FILt.PKOG% = 

VAL(MID(ACCOUNTS,T%+1%,LEN(ACCOUNTS) - T%)) 

\ ACCOUNTS = RIGHT(ACCOUNTS,2%) IGET THE PROGRAMMER 

I AND PROJECT NUMBER 

I OF THE FILE TO SPOOL 

! ALSO STRIP THE 
I ACCOUNT NUMBER FROM 
I THE FILE NAME 

730 GOTO 810 IF PKOJ.NUMBER% = 1% 

\ GOTO 790 IF FILE.PROJ% <> PROJ.NUMBER% 

\ GOTO 7 90 IF FlLE.PROG% <> PROG.NUMBER% 1 ERROR OUT IF THE ACCT 

I NUMBERS DO NOT 
! MATCH. 


7h0 

GuTO 810 

I FILE OK GO TO NEXT 

I PART 

780 

ERROR.FLAG% = 2% 
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\ GOTO 32000 


790 ERROR.FLAG% =3% 

\ GuTO 32000 


ERROR DUE TO ILLEGAL 
ACCOUNT SPECS. GOTO 
ERROR SECTION. 

\ 

NEXT X% 


1020 

ERROR.FLAG% =6% 

ERROR DUE TO ACCT 
ATTEMPTS TO GET 

\ 

GOTO 32000 

FILE IT CAN'T HAVE. 

1025 

X$ = SYS(CHR$(6%)+CHR$(26%)+CHR$(0%)+CHR$(0%)) 

GOTO ERROR SECTION. 

\ 

CURRENT.TERMINAL% = ASCII(MID(X$,4% , 1%)) 


8u0 FILE.PROJ% = PROJ.NUMBER% 

\ FILE.PROG% = PROG.NUMBER% 

\ ACCOUNT$ = NUM1$(FILE.PROJ%) + 

+ NUM1$(FILE.PROG%) !SINCE NO ACCOUNT WAS 

1 GIVEN, USE THE 
! CURRENT ACCOUNT. 


810 

\ 

\ 

\ 

\ 

\ 



* NOW THAT WE HAVE THE ACCOUNT, GET THE DEVICE 

* WHERE THE FILE IS SITTING. 



820 T% * INSTR(1%,FILE.NAMES,":") 

\ GOTO 880 IF T% = 0% 

\ devices = LEFT(FILE.NAMES,T%-1%) 

\ LATER.DEVICES = DEVICES 

\ FiLt.NAMES = RIGHT(FILE.NAMES,T% + 1%) 

\ GOTO 850 IF LEFT(DEVICES,2%) = "DB" 

\ X?) = SYs(CHRS(6%)+CHRS{-10%)+DEVICES+" : ") 

\ DEVICES = MID(XS,23%,3%) 

\ GUTO 900 !GET THE DEVICE NAME 

! AND STRIP IT FROM 
! THE FILENAME. 

850 Devices = left(devices,2%) 

+ CHRS(VAL(RIGHT(DEVICES,3%) ) ) 

\ GOTO 900 IWHEN ENTERING DB??: 

! CHANGE TO WORK IN 
! SYS CALL 6+17 


1030 T% = INSTR(1%,TERMINAL.NAMES,":") 

\ TERMINAL.NAMES = LEFT(TERMINAL.NAMES,T%-1%) 

IF T% <> 0% 

\ TERMINAL.NUMBER% = 

VAL(RIGHT(TERMINAL,NAMES,3%)) 

IF LEN(TERMINAL.NAMES) > 2% 

\ TERMINAL.NUMBER% = CURRENT.TERMINAL% 

IF LEN(TERMINAL.NAMES) = 2% 

\ GOTO 1050 


1040 KB.WIDTH% = KB.TABLE%(X%,3%) 

\ TERMINAL,NUMBER% = KB.TABLE%(X%,2%) 

\ TERMINAL.SIZE! = KB.TABLE%(X%,1%) 


1050 XS = SYS(CHRS(6%) + CHRS{10%) + STRINGS(20%,0%) 
+ "KB" + CHRS(TERMINAL.NUMBER%) 

+ CHRS(^55%)) 


1100 !* 

\ 

\ 

\ !* 

\ M 


ALL RIGHT PEOPLE WE NOW HAVE THE TERMINAL WE 
WANT, THE FILE, AND ALL OTHER JAZZ. LET'S 
PRINT OUT THE STUFF. 


880 DEVICES = "SY"+CHRS(0%) 

\ LATER.DEVICES = "SY" 

\ GOTO 900 ISINCE NO DEVICE GIVEN 

! ASSUME IT TO BE SYO: 

8y0 ERROR.FLAG% = 4% 

\ GOTO 32000 !ILLEGAL DEVICE ERROR 

! GOTO ERROR SECTION 


900 

\ 

\ 

\ 

\ 

\ 

\ 



!♦ NOW THAT WE HAVE DETERMINED THAT WE CAN HAVE 
!* ACCESS TO THE FILE, LET USE SEE IF THE FILE 
!* INDEED EXISTS! 



910 T% = INSTR(1%,FILE.NAMES,".") 

\ GOTO 990 IF T% = 0% 

\ XS = FILE.NAMES 

\ FILE.NAMES = LEFT(FILE.NAMES,T% - 1%) 

\ RAD50.FILENAMES = MID(SYS(CHRS(6%)+CHRS(-10%) 

+ FILE.NAMES) ,7%,4%) 

\ EXTENSIONS = RIGHT(XS,T% + 1%) 

\ T% = INSTR(1%,EXTENSIONS,"/") 

\ GOSUB 950 IF T% 

\ RAD50.EXTENSIONS = MID(SYS(CHRS(6%) + CHRS(-10%) 

+ EXTENSIONS),7%,2%) 

\ !TAKE THE FILE NAME 

I AND BREAK IT UP INTO 
! THE FILE NAME AND 
! ITS EXTENSION THE 
1 RADIX-50 IT. 


920 


XS 


SYS(CHRS(6%)+CHRS(17%)+CHRS(255%)+CHRS(255%) 
+ CHRS(FILE.PROG%) + CHRS(FILE.PROJ%) 


RAD50.fiLENAMES 
STRINGS(10%,0%) 
CHRS(255%)) 


RAD50.EXTENSIONS 
DEVICES 


!SYS CALL TO SEE 
! IF THE FILE IS ON 
! THE DISK. ERROR SECT 
! AT 25000 WILL PICK 
! UP ERROR IF FILE NOT 
! THERE. 


1110 GOTO 1200 IF ATTACHED% = 0% 

OR PSEUDO.NUMBER% 

\ PRINT 

\ PkINT " "‘"Entering print phase"""" 

IF CHAINED,TO% 

\ PRINT IF CHAINED.TO% 


1120 INPUT "Is paper at top of form (Y/N)"; 

YS 

\ YS = LEFt(CVTSS(YS,-1%),1%) 

\ GOTO 1120 IF YS <> "Y" 

\ PRINT 

\ PRINT " PROCESS IN PROGRESS " 


1200 

\ 

\ 

\ 

\ 

\ 

1205 

\ 



" NOW OPEN The file, IT SHOULD BE THERE SINCE WE 
" DID A SYS CALL ON IT. 


FOR C8% = 1% TO C9% 
INPUT.COUNTER% = 0% 


1210 OPEN "(" + ACCOUNTS + "]" + LATER.DEVICES + ":" 

+ FILE.NAMES + "." + EXTENSIONS 
FOR INPUT AS FILE #1% 


1220 


\ 


OPEN "KB"+NUM1S (TERMINAL.NUMBER%) 
FOR OUTPUT AS FILE #2% 
GOSUB 1600 IF C8% = 1% 


1230 INPUT LINE #1%,INPUT.LINES 
\ INPUT.COUNTER% = INPUT.COUNTER% + 1% 

\ NEW.PAGE%= INSTR(1%,INPUT.LINES,CHRS(12%)) 

\ INPUT.LINES = CVTSS(INPUT.LINES,4%) 


9j0 goto 1000 


iKEEP GOING 


950 

\ 

\ 

\ 

\ 

\ 

\ 



!" LINES 950 THRU 980 ARE LITTLE SUBROUTINE IN 
!" MIDDLE OF FILE.NAME SECTION TO DETERMINE WHETHER 
!" A/D WAS ENTERED, THIS INDICATES TO DELETE FILE. 



960 SWITCHS = RIGHT(EXtENSIONS,T% + 1%) 

\ EXTENSIONS = LEFT(EXTENSI0NS, T% - 1%) 

\ ERROR.FLAG% = 17% 

IF SWITCHS <> "D" 

\ GOTO 32000 IF SWITCHS <> "D" 


IGET EXTENSION BY 
! ITSELF, THEN CHECK 
! FOR A "D". 


1240 

\ 

\ 

\ 

\ 


PkINT #2%,left(INPUT.lines,kb.WIDTH%) 

IF NEW.PAGE% = 0% OR INPUT.LINES <> "" 
L1nE.COUNTER% = LINE.COUNTER% + 1% 

IF NEW.PAGE% = 0% OR INPUT.LINES <> "" 
GOSUB 1500 IF NEW,PAGE% AND INPUT.COUNTER% > 1% 
GOSUB 1500 IF NEW.PAGE% AND INPUT.COUNTER% = 1% 
AND INPUT.LINES <> "" 


1250 GOTO 1230 


RETURN 

I END FUNCTION 

1260 

GOSUB 1500 



\ 

NEXT C8% 



\ 

ERROR.FLAG% 



\ 

GOTO 32000 

ERROR.FLAG% = 5% 




GOTO 32000 

I NO EXTENSION GIVEN 




I SO ERROR OUT. 




1000 

\ 

\ 

\ 

\ 

\ 

\ 


NOW THAT WE KNOW THAT THE FILE IS THERE AND 
THAT WE CAN GET IT. SEE IF TERMINAL IS 
AVAILABLE. 


1010 GuTO 1025 IF LEFT(TERMINAL.NAMES,2%) * "KB" 
\ FOR X% = 1% TO KB.TABLE%(0%,0%) 

\ GOTO 1040 

IF KB.TABLES(X%) = TERMINAL.NAMES 


1500 

\ 

\ 

\ 

\ 

1510 GOTO 1520 IF TERMINAL.SIZE% » 0% 

\ T% * INT(LINE.COUNTER%/TERMINAL.SIZE%) 

\ Tl% = LINE.COUNTER% - T% " TERMINAL.SIZE% 



!" 

!" SIMULATE A NEW PAGE. 
1 " 


IFIND TERMINAL.NAMES 
! IN TERMINAL TABLE. 


1 SORRY DID NOT FIND 
I TERMINAL NAME, 


IGET JOB'S CONSOLE. 


ISINCE ONE ENTERED A 
'! TERMINAL TO THE 
! TERMINAL NAME QUEST 
! USE SAID NUMBER. 


IGET THE TERMINAL 
I NUMBER AND PAGE 
I SIZE. 


I ASSIGN KB??: TO 
I THE CURRENT JOB. 


ISKlP IF DETACHED 
I OR ON PSEUDO 


lASK USER IF PAPER 
I AT TOP OF FORM. 


I LOOP Thru NUMBER 
I COPIES. PRINT HEADER 
I PAGE FIRST. 


I ERROR SECTION WILL 
I TAKE CARE OF 
I ANY ERROR. 


I ERROR SECTION WILL 
I TAKE CARE OF ERROR. 
I PRINT HEADINGS IF 
I FIRST COPY. 


I READ IN A LINE, SEE 
I IF NEW PAGE IS 
I NEEDED. 


I PRINT OUT The LINE 
I DO NEW PAGE SECTION 
I IF NEW PAGE. SKIP 
I NEW PAGE IF '‘L ONLY 
I CHARACTER ON FIRST 
I LINE. 

IGET MORE STUFF TO 
I PRINT. 


I PRINT ALL COPIES THEN 
I FLAG ERROR AS END 
I OF FILE TO STOP 
I PRINTING 


I REDUCE LINE.COUNTER% 
I DOWN TO KNOW HOW 
I MANY LINES ON 
I PAGE Wb Printed. 
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1520 PRINT #2% FOR X% = Tl% + 1% TO TERMINAL.SIZE% 

IF Tl% > 0% 

\ LHnE.CuUNTER% - 0% 

\ RETURN I PUMP OUT THE LINES 

! NEEDED TO GET TO TOP 
I OF FORM Then return. 


1600 

\ 

\ 

\ 

\ 


* PRINT HEADINGS BEFORE DOING REPORT 


1610 

\ 


\ 

\ 

\ 

\ 


\ 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


GOSUB 2000 

PASS.NAME$ = NUMl$(PROJ.NUMBER%) + " " 

+ NUMl$(PROG.NUMBER%) + " " 

+ THE.NAME$ 

GuSUB 10000 

PRINT #2%,LEFT(PASS.BACKS(X%),KB.WIDTH%) 

FOR X% - 0% TO 6% 

PkINT #2% 

PRINT #2%,LEFT("([[??????*======»==»=*=============" 

+ "== 00000000000000000000000 ********* 111 " 
,KB.WIDTH%) 

PRINT #2%,LEFT("[([??????=====»====*=============*=" 

+ "== 00000000000000000000000*********1 1 1 " 
,KB.WIDTH%) 

PRINT #2% 

PRINT #2%,DATES(U);" ";TIMES(0%);" ";C9%; 

" cop"; 

PRINT #2%,"y"; IF C9% = 1% 

PRINT #2%,"ies"; IF C9% > 1% 

PRINT #2%," Nodelete" IF SWITCHS * "" 

PRINT #2%," Delete" IF SWITCHS « "D" 

PRINT #2%,"Requested printing of:" 

PRINT #2% 

PASS.NAMES = NUMIS(FILE.PROJ%) + " " 

+ NUMIS(FILE.PROG%) + " " 

+ FILE.NAMES + "." 

+ EXTENSIONS 


\ GOSUB 10000 


1 PRINT USER HEADER 
I GET FILE DATA. 


1620 

\ 

\ 


\ 


\ 

\ 

\ 


PkINT f2%,LEFT(PASS.BACKS(X%),KB.WIDTH%) 

FOR X% - 0% TO 6% 

PRINT #2* FOR X% » 1% TO 2% 

PRINT #2%,LEFT("(((??????====================■ 

+ "== 00000000000000000000000 ********* 
,KB.WIDTH%) 

Print #2%,left(" ii(??????============»=======^ 

+ "== 00000000000000000000000 ********* 
,KB.WIDTH%) 

LINE.COUNTER% = 25% 

GOSUB 1500 
RETURN 


111 " 


111 " 


IPRINT Out file NAME 
! AND ACCOUNT. 


2000 I****************"**************************’ 

\ 1 * 

\ I* THIS SECTION WILL LOOK UP THE NAME IN THE 
\ !* virtual array spoler.DAT in (1,01. 

\ !* 


2010 OPEN "(1,01SPOLER.VIR" AS FILE #9%, 

RECORDSIZE 2048% 

\ DIM #9%,NAME.ACCTS(150%) = 15% 

,ACCT.PROJ%(150%) 

,ACCT.PROG%(150%) lOPEN AND DEFINE FILE 


2020 FOR X% = 1% TO ACCT.PROJ%(0%) 

\ GuTO 2040 

IF ACCT.PROJ%(X%) = PROJ.NUMBER% 

AND ACCT.PROG%(X%) * PROG. N-UMBER% 

\ NEXT X% ILOOP THREW ALL NAMES 

! AND ACCOUNT NUMBERS 

2030 THE.NAMES * "??????" 

\ GOTO 2050 IACCOUNT NOT FOUND 

2040 IF CVTSS(NAME.ACCTS(X%),2%) - "" 

THEN THE.NAMES * "??????" 

ELSE THE.NAMES “ NAME.ACCTS(X%) IIF NAME IS BLANK 

! INDICATE AS ERROR 
1 ELSE SEND NAME BACK. 


2050 RETURN 


IFINISH UP. 


10000 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


THIS LITTLE ROUTINE WILL PRINT THE LARGE LETTER USED 
BY SPLRUN (SPOOLING PACKAGE) FOR ANY FILE SPEC 
OR ACCOUNT NUMBER PASSED TO IT IN PASS.NAMES. 
ACCOUNTS AND FILE NAMES ARE TREATED THE SAME. 


10010 DiM •11%,C%(9%,39%) 

\ OPEN "SPOOL;CHARS.QUE" a5 FILE #11% 

10020 PASS.BACKS(X%) ■ "" FOR X% » 0% TO 6% 
\ PASS.NAMES » CVTSS(PASS.NAMES,32%) 

\ FOR U8% * 0% TO 6% 


I DIM AND OPEN THE 
1 CHARS.QUE. 


I REMOVE ALL EDIT 
1 STUFF 


10025 FOR U9% * 1% TO LEN(PASS.NAMES) 

\ LETTERS » MID(PASS.NAMES,U9%,1%) 

\ LETTERS - " " IF LETTERS « "," 

\ INDEX.IN% * 0% 

\ INDEX.IN% « ASCI I(LETTERS) * 64% 

IF ASCII(LETTERS) > 64% 

AND ASCI I(LETTERS) ' 91% 

\ INDEX.IH% = 27% IF ASCI 1 (LETTERS) = 36% 

\ index.IN% » 28% IF ASCII(LETTERS) = 46% 

\ INDEX.IN% = 29% IF ASCI 1(LETTERS) = 63% 

\ INDEX.IN% = ASCII(LETTERS) - 18% 

IF ASCII(LETTERS) > 47% 

AND ASCII(LETTERS) < 58% 

\ INDEX.IN% » 29% IF INDEX.IN% = 0% 

\ !START LOOP ThRU ThE 

! PASSED ARGUMENT. 

! GET THE INDEX TO 
! VIRTUAL ARRAY. 


10030 FOR U7% = 0% TO 4% 

\ IF C%(U8%,INDEX.IN%) AND 2**U7% 

THEN 

PASS.BACKS(U8%) = PASS.BACKS(U8%) 


CIRCLE 11 ON READER CARD 
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ELSE 

PASS.BACKS(U8%) 
+ LETTERS 


PASS.BACK$(U8%) 


10050 

\ 

\ 

10060 

\1****** 

\1* 

\!* THE 

\1* 

\ 1 * 

\l*****i 

It^iOO 

\ 

\ 

\ 

\ 

19105 

ll#110 


PASS.BACK$(U8%) 
NEXT U9% 

NEXT U8% 


PASS.BACK$(U8%) 


•DETERMINE WHETHER WE 
! SHOULD BUILD A 
! CHARACTER OR SPACE. 

ILOOP THREW ALL FIVE 
! BITS. 


!PAD A SPACE BETWEEN 
! THINGS THEN CONT. 


DATA IS RETURNED IN PASS.BACKSO ELEMENTS 0 TO 

6 . 


TMlb SECTION SENDS INFO TO OPSER. 


19120 

19140 


19160 

25000 

\ 

\ 

\ 

\ 

25005 

\ 

25010 

\ 


DEF FN09S(C$) 

S1$=CHR$(6%)+CHR$(-10%) 

\ S2$-CHR$(6%)+CHR$(22%)+CHR$(-1%)+CHR$(0%) 

+"OPSER "+STRING$(10%,0%) 

\ S$-SYS(CHR$(6%)+CHRS(22%)+CHR$(0%)+CHRS(0%)) 

\ S$»SyS(CHR${6%)+CHRS(-21%)) 

1 SYS CALL STRINGS : S1$-FILENAME STRING SCAN. 

1 S2$*SEND MSG. TO 'OPSER'. 

! SYS CALLS ; REMOVE THIS JOB AS A RECEIVER. 

I DROP TEMP. PRIVILEGES. 

S$=SYS(CHR$(6%)+CHR$(22%)+CHR${0%)+CHR$(0%)) 

1 REMOVE THIS JOB AS A RECEIVER. 

C$=CVT$$(C$,189%) 

\ GOTO 19160 IF LEN(C$)=0% 

! TRIM PARITY BIT, DISCARD EXCESS CHARS.AND 
I LEADING/TRAILING SPACES TABS, CONVERT 

I LOWER CASE TO UPPER CASE,REPLACE EMBEDDED 

I SPACES TABS WITH ONE SPACE. 

1 IF NOTHING LEFT NO PROCESSING TO BE DONE. 

If LEN{C$) <« 19% THEN 

S$=SYS{S2$+CHR$(LEN(CS)+1%)+C$) 

ELSE 

SS=SYS{S2$+CHR${255%)+LEFT(C$,19%)) 

\ C$=RIGHT(CS,20%) 

\ GOTO 19150 

1 SEND THE DATA TO 'OPSER'. 

FNEND 


tSEND MESSAGE TO OPSER 


* ERROR SECTION FROM ON ERROR GOTO. 


Ir ERR = 28% THEN ERROR.FLAG% = 15% 
RESUME 32000 


ERL = 110% THEN ERROR.FLAG% = 7% 
RESUME 32000 


25015 IF ERL - 640% THEN RESUME 700 


25020 

\ 


25030 

\ 


25040 

\ 


25050 

\ 


\ 

25070 

\ 

2508U 

25090 

\ 

25110 

\ 

\ 

25120 

\ 

25130 

\ 


32000 

\ 

\ 


IF ERL * 510% THEN ERROR.FLAG% * 8% 
RESUME 32000 


IF ERL » 720% THEN ERROR.FLAG% = 9% 
RESUME 32000 

IF ERL « 850% THEN ERROR.FLAG% * 4% 
RESUME 32000 

IF ERL - 1U30% THEN ERROR.FLAG% = 10 
RESUME 32000 

If ERL = 1050% OR ERL •= 1220 

THEN ERROR.FLAG% = 11% 

RESUME 32000 

IF ERL » 920% OR ERL « 1210 

THEN ERROR.FLAG% =12% 

RESUME 32000 


If ERL = 1230% THEN RESUME 1260 

Ir ERL = 1240% OR ERL « 1520 

THEN ERROR.FLAG% = 14% 
RESUME 32000 

If ERL « 32715 THEN PROGRAM.TO$ 
ERROR.FLAG% = 16% 

RESUME 32000 


IF ERL » 2010% OR ERL * 2020% 

THEN THE.NAMES = "??????" 
RESUME 2050 


IF ERL - 32712% 

THEN ERROR.FLAG% =18% 
RESUME 32000 


!~Z IS FLAGGED AS A 
1 7 THEN GO TO ERROR 
I PROCESSING SECTION. 

IFILL IN KB NAME TABLE 
! FROM FILE. 


IBAD LINE NUMBER 
1 PASSED TO PROGRAM. 


IBAD ACCOUNT VALUE. 

1 ILLEGAL DEVICE NUMBER 

1 ILLEGAL TERMINAL •. 

IKB CAN'T BE ASSIGNED. 


•CAN'T FIND FILE OR 
! ACCOUNT. 


lEND OF INPUT FILE. 


I ERROR TO OUTPUT FILE. 


!PROGRAM TO CHAIN TO 
1 DOES NOT EXIST. 


I CAN'T FIND ACCOUNT OR 
I FILE OR SUBCRIPT 
! OVERFLOW. 


IKILL DID NOT WORK 


ERROR.FLAG% 


IUNKNOWN ERROR 


DEC 

RSTS/E USERS 

From one of the pioneers in commercial 
data processing using RSTS. Off the shelf 
software ready for immediate delivery. 
Completely interactive. Extensively 
documented. Fully supported. Ideal for 
OEM’s, service bureaus or end users. 
Cost effective solutions including; 

• ACCOUNTS PAYABLE 

• GENERAL LEDGER 

• FINANCIAL REPORTING 

• ACCOUNTS RECEIVABLE 

• PAYROLL 
FIXED ASSETS 

For complete details, contact us at: 



Plycocn 


P.O. Box 160 
Plymouth, IN 46563 
(219) 935-5121 

CIRCLE 42 ON READER CARD 



services, inc. 


IF ERROR.FLAG% =1% 

THEN ERROR.OUT$ 

ELSE IF ERROR.FLAG% = 2% 

THEN ERROR.OUT$ » "Plllegal account specs" 
ELSE IF ERROR.FLAG% = 3% 

THEN ERROR.OUT$ 

ELSE IF ERROR.FLAG% = 4% 

THEN ERROR.OUTS 
ELSE IF ERROR.FLAG% = 5% 

THEN ERROR.OUTS 
ELSE IF ERROR.FLAG% = 6% 

THEN ERROR.OUTS 
ELSE IF ERROR.FLAG% = 7% 

THEN 110 

ELSE IF ERROR.FLAG% = 8% 

THEN ERROR.OUTS = ''?Bad line number passed" 
ELSE IF ERROR.FLAG% = 9% 

THEN ERROR.OUTS « 

ELSE IF ERROR.FLAG% » 10% 

THEN ERROR.OUTS * 

ELSE IF ERROR.FLAG% = 11% 

THEN 32500 

ELSE IF ERROR.FLAG% - 12% 

THEN ERROR.OUTS » 

ELSE IF ERROR.FLAG% =13% 

THEN 32700 

ELSE IF ERROR.FLAG% = 14% 

THEN ERROR.OUTS - 
ELSE IF ERROR.FLAG% =15% 

THEN ERROR.OUTS » 

ELSE If ERROR.FLAG% = 16% 

THEN ERROR.OUTS ■ 

ELSE IF ERROR.FLAG% » 17% 

THEN ERROR.OUTS - 
ELSE IF ERROR.FLAG% =18% 

THEN ERROR.OUTS ■ "?Deletion of file in error 
ELSE ERROR.OUTS » "?Unknown error AT LINE " 
+NUM1S(ERL) + " error; "+NUM1S(ERR) 


"?Core common error" 


"?Protection violation" 
"?Illegai device specs" 

"?No file ext. given" 

"?Can not find terminal name" 


"?Illegal account number" 
"?Illegal terminal • specified" 

"?Can not find file or account" 

"?Error to output terminal" 

"?*C trap" 

"?Chaining to prog, not found" 
"?Illegal switch on filename" 


32050 

\ 

\ 

\ 

\ 


GOTO 32090 IF ATTACHED% « 0% 
PRINT 

PRINT ERROR.OUTS 

GOTO 32060 IF PSEUDO.NUMBER% 

GOTO 32700 


32060 CS - ERROR.OUTS + "-" + "ON ACCOUNT" 

+ "I" + NUMlS(PROJ.NUMBER%) + "," 

+ NUMlS(PROG.NUMBER%) + "J" 

+ " WHILE IN SPOLER ON PSEUDO KB" 

\ XS “ FN09S(CS) 

\ GOTO 32700 


32090 CS = ERROR.OUTS + CHRS(13%) + "ON ACCOUNT" 

+ "(" + NUMIS(PROJ.NUMBER%) + "," 

+ NUMIS(PROG.NUMBER%) ♦ "I" 

+ " WHILE IN SPOLER IN DETACH MODE" 
\ X» « FN09S{CS) 

\ GOTO 32700 


Tula ib The error.flag processing section. 


IMAKE UP OUTPUT STRING 
1 WITH CORRECT ERROR. 

1 IF 7 OR 13 GOTO 
1 32700, IF 11 GOTO 
! 32500. 


I IF ATTACHED PkINT 
1 OUT ERROR MESSAGE 
! IF NOT PSEUDO THEN 
! GOTO END. 


!SEND ERROR MESSAGE 
! TO OPSER SINCE ON 
I PSEUDO KB#. THEN END 
! PROGRAM 


ISEND ERROR MESSAGE 
1 TO OPSER SINCt Wt 
I ARE IN DETACHED 
! MODE. 
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IT'S 2:28 AM 

The kid with his auto-dial MODEM 
just found your "new" dial-in number 
555-0112 on the 112th try. 

He's in and you are out. 


LOTS OF LUCK! 



SPD on Page 67 


CIRCLE 80 ON READER CARD 


32500 

\ 

\ 

\ 

\ 


* THIS SECTION GIVES USER CHOICE OF OPTION TO 

* PICK WHEN THE TERMINAL IS NOT AVAILABLE. 


♦ PROGRAM.T0$ + """ 

+ CVT%$(LINE.NUMBER%) + "~" 

+ CVT%5iATTACHED%) + """ 

+ CVT%$(PSEUDO.NUMBER%) + 

\ CHAIN "$QUE" 31000 IQUE UP FILE TO 

1 PRINT WITH FORM 
I EQUAL TO TERMINAL 
! NAME. 


32540 X> = Syj»(CHRS(8%)+-(l»0ISPOLER-+CHR${13%) 

♦ CVT%S(32600) + "Q LP;/FO:NORMAL « " 

♦ LATER.DEVICES + 

+ "I" + ACCOUNTS + "J" 

♦ FILE.NAMES + + EXTENSIONS 

+ QUE.DELETES 

+ CHRS(13%) 

+ PROGRAM.TOS + """ 

+ CVT%S(LINE.NUMBER%) + 

+ CVT%S(ATTACHED!) + 

+ CVT%S(PSEUDO.NUMBER!) + """) 

\ CHmIN "SQUE" 31000 IQUE UP FILE TO 

I PRINT WITH FORM 
1 EQUAL TO NORMAL 
1 SO GOES TO HIGH 
I SPEED PRINTER. 


32580 PRINT "PDoing queing" 

\ GOTO 32530 

IF LEFT(TERMINAL,NAMES,2!) <> "KB" 

\ GOTO 32540 

IF LEFT (TERMINAL. NAMES, 2!) •= "KB" 110 ATTEMPTS FAILED 

1 SO DO QUEING. 


32600 1 ************************************* ********** 

\ 1 * 

\ !* REENTER FROM QUE TO THIS POINT 

\ 1 * 

\ !**************************«*«**•*«**«*•**««««** 

32610 Zy$ » SYb(CHRS(7!)) 

\ Z9S = RIGHT(Z9S,2!) 

\ T! - INSTR(1!,Z9S,CHR$(13!)) 

\ Tl! * INSTR(T!,Z9S,""") 

\ PROGRAM.TOS * MID(Z9S,T! + J!,Tl!-T!-l!) 

\ line.NUMBER! = CVTS!(MID(Z9S,T1! + 1!, 2!)) 

\ T2! = INSTR(T1!+1!,Z9S,"~") 

\ ATTACHED! » CVTS!(MID(Z9S,T2! + l!,2!)) 

\ T3! » INSTR(T2!+1!,Z9S,"“") 

\ PbEUDO.NUMBER! » CVTS!(MID(Z9S,T3! + l!,2!)) IRETURN FROM QUE AND 

! RETORE ALL VALUES 
1 NEEDED TO FINISH UP 


32700 1 

\ 


THIS SECTION ENDS THE PROGRAM, AND THEN DOES 
ANY NECESSARY CHAINS, IF IT IS 
detached AND NOT CHAINING OUT THEN KILL 
The JOB. 


32710 CLuSE •l!,i2%,fll! 

\ XS * SYS(CHR$(6!) * CHRS(11%) + STRINGS(20%,0%) 

+ "KB" + CHRS(TERMINAL.NUMBER!) 

+ CHRS(255%)) IDEASSIGN TERMINAL. 

.32712 GuTO 32715 IF ERROR.FLAG! <> 13% 

OR SWITCHS <> "D" 

V KILL "1" ♦ ACCOUNTS + ")" + LATER.DEVICES + 

♦ FILE.NAMES + "."■*• EXTENSIONS IKILL THE FILE II 

! /D ON FILE NAME 


32505 GOTO 32530 IF (ATTACHED% = 0% OR PSEUDO.NUMBER%) 

AND LEFT(TERMINAL.NAME$,2%) “KB" 

\ GOTO 32540 IF (ATTACHED! = 0! OR PSEUDO.NUMBER!) 

AND LEFT(TERKINAL.NAMES,2!) - "KB" IIF WE ARE IN A DET 

1 STATE OR ON PSEUDO 
J GOTO QUE SECTION. 

32510 ATTEMPT.KB! » ATTEMPT.KB% + 1! 

\ GOTO 32580 IF ATTEMPT.KB% = 11% 

\ SLEEP 5! IF ATTEMPT.KB% > 1% 

\ PRINT "%Attempt ";(ATTEMPT.KB%);" failed" 

IF ATTEMPT.KB! >1% 

\ GOTO 1050 IF ATTEMPT.KB! > 1! 

\ PkINT 

\ PKiNT "%Terminal not available for printing" 

\ PRINT 

\ TIME.NEWS = "12:00" IF LEFT(TIMES(0),2!) < "12" 

AND LEFT(TIME$(0),2!) > "10" 

\ TIME.NEWS = "16:00" IF LEFT(TIMES(0),2!) > "13" 

AND LEFT(TIMES(0),2!) < "16" 

\ TIME.NEWS * "a few min." IF TIME.NEWS = "" 

\ PRINT "Options: 

\ Print " l. wait (lO times then queued up)" 

\ PRINT " 2. Queue to spooler (report available" 

“ after ";TIME.NEWS;")" 

IF LEFT(TERMINAL.NAMES,2!) <> "KB" 

\ Print " 3. Queue to high speed printer" 

\ lADD ONE TO ATTEMPTS 

1 THEN IF FIRST TRY 
I AND FAILED THEN AS 
1 OPTIONS. OPTION 2 
! ONLY IF A NAMED 
1 TERMINAL. 


32520 INPUT "Answer";ANSWERS 
\ QUE.DELETES « "" 

\ QUE.DELETES - "/DE" IF SWITCHS » "D" 

\ GOTO 1050 IF ANSWERS » "1" 

\ GOTO 32530 IF ANSWERS « "2" 

AND LEFT(TERMINAL.NAMES,2!) <> "KB" 

\ GOTO 32540 IF ANSWERS - "3" 

\ GOTO 32520 IGET THE ANSWER AND 

1 BRANCH TO WHERE WE 
1 MUST BE. 


32715 GOTO 32720 IF ASCII(PROGRAM.TOS) • 0% 

\ CHAIN program.TOS LINE.NUMBER! 1 IF PROGRAM EXISTS 

1 TO CHAIN DO SO. 


32730 


\ 


32767 


GOTO 32767 IF ATTACHED! 

XS - SYS(CHRS(6!) + CHRS(8!) 

♦ CHRS(PEEK(518!)/2!) ♦ STRINGS(23!,0!) 

+ CHR$(0!) + CHRS(255!)) ISINCE WE ARE DETACHFD 

1 KILL OFF THE JOB. 

GOTO 32767 IF ERROR.FLAG! 13% 

OR SWITCHS <> "D" 

KILL "1" ♦ ACCOUNTS ♦ ")" + LATER.DEVICES + ":" 

+ FILE.NAMES + "." ♦ EXTENSIONS IKILL THE FILE IF 

1 /D ON FILE NAME 
1 REQUESTED 

END 


111,11) SPOLl.BAS 


COl EXTEND 

\ !• 

\ !* THIS PROGRAM WAS WRITTEN BY M H KOPLITZ 
\ !* SxoTEMS ADMINISTRATOR 

\ !* , ALLIS-CHALMERS HTD, YORK 

' !* PA 17404. 

\ !* THIS PROGRAM MAKES A VIRTUAL FILE FROM 

\ !* ACCT.SYS FOR THE SPOLER.BAS PROGRAM. 

^ 1 * 

\ 

010 OPEN "SACCT.SYS" FOR INPUT AS FILE fl% 

\ OPEN "#SPOLER.VIR" FOR OUTPUT AS FILE 12% 

\ DIM #2%,NAME.ACCTS(150!) - 15% 

,ACCT.PROJ!(150!) 

,ACCT.PROG!(150%) 

015 ON ERROR GOTO 100 


32530 Xb » SYb(CHRS(8%)+"ll,0]SPOLER"+CHR$(13%) 
+ CVT!S(32600) + "Q LP:/FO:" 

♦ TERMINAL.NAMES + "-" 

+ LATER.DEVICES + ":" 

+ "I" + ACCOUNTS + "]" 

+ FILE.NAMES + "." + EXTENSIONS 
+ QUE.DELETES 
+ CHR$(13!) 


020 INPUT #1%,PROJ%,PROG%,PASS.WORDS,QUOTA, 

UFD%,THE.NAMES !INPUT LINE 

030 COUNTER! - COUNTER! + 1% 

\ NaME.ACCTS(COUNTER!) = LEFT(THE.NAMES,15!) 

\ ACCT.PROJ!(COUNTER!) = PROJ! 

\ ACCT.PROG!(COUNTER!) = PROG! 

\ GOTO 020 ‘PLACE ACCT.SYS DATA INTO .VIK 
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ICO IF LRL = 020 THEN RESUME 200 

110 ON ERROR GOTO 0 

J20 GOTO 32767 

200 ACCT.PROJ%(0%) = COUNTEK% 

GOTO 32767 

32767 CLOSE #1»,#2% 

\ END 


111,111 CIIAl'.HAF 


rOl EXTEND 

010 !*********< 


' !* T^!^ PkOGkAH was IvRITTEN BY M il KOPI.TTZ, lO-AUC-B], 

\ !* SYSTEMS ADIMINISTRATOR, ALLIS-CHALMERS HTD. 

\ !* THIS PROGRAM WILL PRODUCE A LINE IN RSTS St^JOLER 

V !* FORMAT AND SEND IT TO ANY OUTPUT DEVICE. 

\ ;•«***«**«****«*•«******.«**«•*«•*****.««*«*«*««««««*« 


020 PRINT "CHAR VI.0 Allis-Chalmers HTD 

" Make RSTS spooling IrttPts" 

\ PRINT !PRINT BANNER 

030 iMPu J "Output device" .-OUTPUT.DEVICES 

\ OPEN OUTPUT.DEVICES 

FOR OUTPUT AS FILE #1% lOPEN OUTPUT 

040 PRINT "Line to convert (return = done)"; 

\ iNRoi line pass.names 

\ PASS.NAMES = CVTSS(PASS.NAMES,4%) 

\ GOTO 32767 IF PASS.NAMES = "" lINPUT LINE 


050 GOSUB 10000 

\ PRINT #1%,PASS.BACKSlX%) FOR X% = 0% TO 6% 

\ PRINT 11% FOR X% = 1% TO 3% 

\ GOTO 040 !CONVERT, PRINT OuT 

! THEN GET MURE. 


10000 !******************************************************** 

\ !* 

\ 1* THIS LITTLE ROUTINE WILL PRINT THE LARGE LETTER USED 

\ !* BY SPLRUN (SPOOLING PACKAGE) FOR ANY FILE SPEC 

\ !* OR ACCOUNT NUMBER PASSED TO IT IN PASS.NAMES. 

\ 1* ACCOUNTS AND FILE NAMES ARE TREATED ThE SAME. 



10010 DIM tll%,C%(9%,39%) 

\ OPEN "SPOOL;CHARS.QUE" AS FILE #11% 

10020 PASS.BACKS(X%) * "" FOR X% = 0% TO 6% 

\ PASS.NAMES = CVTSS(PASS.NAMES,32%) 

\ FOR U8% = 0% TO 6% 


10025 FOR U9% = 1% TO LEN(PASS.NAMES) 

\ LETTERS *■ MID(PASS.NAMES,U9%,1%) 

\ LETTERS » " " IF LETTERS = 

\ INDEX.IN% = 0% 

\ INDEX.IN% = ASCI I(LETTERS) - 64% 

IF ASCII(LETTERS) > 64% 

AND ASCII(LETTERS) < 91% 

Index. IN% = 27% IF ASCI I(LETTERS) = 36% 

\ INDEX.IN% = 28% IF ASCI I(LETTERS) = 46% 

\ INDEX.IN% = 29% IF ASCI I(LETTERS) = 63% 

\ INDEX.IN% * ASCII(LETTERS) - 18% 

IF ASCII(LETTERS) > 47% 

AND ASCII(LETTERS) < 58% 

' INDEX.IN% = 29% IF INDEX.IN% = 0% 

\ !START LUOP THRU THE 

! PASSED ARGUMENT. 

! GET THE INDEX TO 
! VIRTUAL ARRAY. 

10030 Fur U7% = 0% TO 4% 

\ IF C%(L'8%, INDEX. IN%) AND 2**U7% 

THEN 

PASS.BACKS(U8%) = PASS.BACKS(U8%) 

ELSE 

PASS.BACKS(U8%) = PASS.BACKS(U8%) 

+ LETTERS !DETERMINE WHETHER WE 

! SHOULD BUILD A 
! CHARACTER OR SPACE. 

10040 NEXT U7% !LOOP THREW ALL FIVE 

! BITS. 


!DIM AND OPEN THE 
! CHARS.CUE. 


!REMOVE ALL EDIT 
! STUFF 


10050 PASS.BACKS(U8%) = PASS.BACKS»U8%) + " " 

\ NEXT U9% 

NEXT U8% IPAD A SPACE BETWEEN 

! THINGS THEN CONT. 

10060 RETURN 


THE DATA IS RETl RNED IN PASR.BACKSO ELEMENTS 0 TO 

6 . 


32/67 CLOSE #1» 
END 


f 


THE COMPLETE LINE OF LINE PRINTERS 
FOR YOUR OEC MINI:000-243-0054* 

Digital Associates offers the widest selec¬ 
tion of line printer systems plug-compatible 
with the full line of DEC minicomputers, OR 
ANY OTHER OF YOUR MINICOMPUTERS. 

For band, chaintrain, drum, belt or 
matrix technologies, call our toll-free 
number and our printer specialists will help 
you pick the printer that meets your exact 
requirements. Digital Associates has 27 dif¬ 
ferent models to choose from, so you don’t 
have to settle for second best. 

With prices up to 40% off the mini¬ 
computer manufacturer’s list, delivery in 30 
to 40 days, installation by factory-trained 
technicians and a nationwide service net¬ 
work, it’s easy to see why Digital Associates 
is the source for minicomputer line printer 
alternatives. 



Digital Associates Corporation 

1039 E. Main Street, Stamford, CT 06902 TWX 710-474-4583 
( 800 ) 243-9054 ‘In Connecticut call (203) 327-9210 
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PROPOSED STANDARD EDT 2.0 INITIALIZER 

By David Spencer. Infinity Software Corporation 


1.0 INTRODUCTION 

This is the first of two articles describing techniques to 
get more out of EDT version two. This installment deals 
with an EDTINI.EDT initializer file. It was created in a joint 
effort of Steven Edwards of Software Techniques and 
myself. 

The second article will deal with EDT hints and kinks. 
This includes a "wish-list" of additional commands, work¬ 
arounds to problems, and complaints. 

Credit is due to Steve and members of the Software 
Techniques staff, which have contributed lots of useful in¬ 
formation that has been incorporated into these articles. 

2.0 REASONS FOR EXTENDED COMMANDS 

Everyone agrees that EDT version 2 is a wonderful 
editor. What we can’t agree on. though, is a standard set of 
redefined keys. It seems everybody has their own idea on 
the best functions. Hopefully this argument can be cooled 
somewhat with the introduction of a standard EDT in¬ 
itializer file. 

The distributed EDT comes with assignments to a 
number of keys for keypad editing (figure 1). Although 
these keys do an excellent job. more sophisticated users 
outgrow the set suppiied by DEC. 

For example. EDT provides a number of simultaneous 
buffers. The range of commands available for buffer manip¬ 
ulation is fantastic. But there is no way to access buffers 
through editing keys. Any buffer changes must be executed 
with line-mode commands either in line-mode (unsatis¬ 
factory) or with the keypad "GOLD 7” command (cumber¬ 
some). Either way. keypad editing is reduced to something 
only slightly better than line-mode editing. 

What I present with this article is a standard set of EDT 
extensions. These extensions allow users to access buffers, 
do file Input/output, and other things available only in line¬ 
mode. This set (figure 2) does not interfere with any keys 
pre-assigned by DEC. However, these extra definitions in¬ 
crease EDT's usability many-fold. 

3.0 DEFINITION OF TERMS 

A number of terms are used throughout these two ar¬ 
ticles to describe commands. To prevent confusion, defini¬ 
tions of these terms follow. I assume that the reader already 
has some knowledge of EDT. and has at least glanced at the 
manual. 

• GOLD 

“GOLD” is a synonym for the blue key on VT52’s and 
the PF1 key on VTIOO's. 

• CONTx 

"CONT x” is used to symbolize the typing of the con¬ 
trol character "x”. 


• GOLDx 

"GOLD X" is the striking of the GOLD key foliowed 
by key "x". where "x” is a letter, control character, 
or keypad key. 

• Keystroke 

A keystroke is one or more keyboard keys typed to 
complete an editing sequence. For example, the 
combination "GOLD CONT Z" is thought of as one 
keystroke. 

• Internal Key Number 

EDT uses an internal numbering scheme to uniquely 
identify keystrokes. The second article will include a 
table of all the internal EDT key numbers and 
keystrokes. 

• Iteration 

All EDT editing keys can be prefixed with a repeti¬ 
tion count. This is entered by striking the GOLD key. 
a number, and a keystroke. 

4.0 NEW KEY DESCRIPTIONS 

Here is a detailed list of the additional EDT key defini¬ 
tions. Nearly all of these commands accept an iteration 
count. 

In those commands which ask for input (like buffer 
name), the input must be terminated with the keypad 
ENTER key. If for some reason you wish to abort the com¬ 
mand asking for input, type "CONT U" and EDT will ter¬ 
minate the command without any action taking place. 

NEW COMMANDS 

GOLD ARROW-UP 

Move the editing window upward 22 lines. The ver¬ 
tical orientation of the cursor will be maintained 
from the line it left. 

GOLD ARROW-DOWN 

Move the editing window downward 22 lines. Once 
again, the vertical orientation of the cursor will be 
maintained from the line previous to the GOLD 
ARROW-DOWN. 

CONT B 

Move backward a word. Identical to striking the 
keypad "5” key followed by the keypad "1" key. 
"CONT B" works to move the cursor backward 
regardless of the motion flags. 

CONT F 

Move forward a word. This key is identical to strik¬ 
ing the keypad "4” key and then the keypad “1" 
key. "CONT F" works the same at ail times. 
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CONT P 


Move to next paragraph. Using this key moves the 
cursor to the next paragraph. (The default definition 
for a paragraph delimiter is two consecutive 
carriage-returns.) 


GOLD CONT H 

Transpose previous two characters. By striking the 
GOLD key and backspace, the previous two char¬ 
acters will be transposed. This is helpful for typists 
that frequently type "teh” instead of "the". 


CONTG 


CONT X 


Cut region to 
named buffer. 
Select a region 
of text and 
type CONT X. 
Enter the buf¬ 
fer name. The 
selected re¬ 
gion will be 
removed from 
the current 
editing buffer 
and placed in¬ 
to the buffer 
name entered. 


GOLD CONT D 


Paste contents of named buffer. Taping CONT G will 
ask for the 
buffer name 
on the 

twenty-third 
line on the 
screen. Enter 
the buffer 
name, and 
that buffers 
contents will 
be inserted at 
the current 
position. 


GOLD CONT W 

Toggle 80/132 screen width. 


RSTS/E users, having trouble eotitrolling usage of 
your computer system? Is there panic when 
pa.sswords are changed? Have \'ou ever bothert'd to 
change your passwords at all? S\ stem securit\' is a 
serious problem. Announcing PASMAN, the intel¬ 
ligent solution. 

PASMAN is a fttiACT account management sub¬ 
stitute. Features include: 

• Performs the common KFACT functions ac count 
add and delete. Fasic'r to use than KK:ac::t. and 
more “forgiving.” 

• New features nc'V'er available before. Mass c hange 
of pas.swords for a single account, group, or the 
whole system! You supply the new pa.ssworcl. or 
let PASMAN make onc' up. 

• Identify users by a logical grouping (such as 
ACXXX'NTING) and with an ac count desc ription. 

• Kt'ports of what ac count belong to who. Identify 
user growth patterns, be* able' to plan ahc'ad for 
upgrades. 

In short, PASMAN will help you to get back control 
of your system. 

PASMAN is available now for only $350. It comc's 
complete with a through user guide, which can be 
ordered separately' for $lo. A trial vc'rsion of PASMAN 
with manual is available for $50. 

PASMAN c an afso be ordered with Dl'.MPlT, a gen¬ 
eral purpose' file dump utility'. It is fast, easy to use', 
and the output is more useful than othc'r available 
dump utilitic's. Dl'MPIT is an c'xcellent programming 
tool that eliminatc's onc'-shot programming to c'x- 
amine disk output data. 

The purchase pric e for DLJMPIT alone is offc'rc'd for 
$150. Like lAKSMAN, it also comes with a user manual. 
PASMAN and Dl’MPIT can be ordc'rc'd togc'thc'r now 
for the discount price of $400. 

INFINITY SOFTWAKE COKPORATION 
2210 Wilshire Blvd. 

Suite 801 

Santa Monic a, California 90403 
(213) 820-2702 

' CIRCLE 87 ON READER CARD 


Toggle word 
delimiter sets. 

This allows 
the use of two 
completely 
different 
word deli¬ 
miter sets. 

The imple¬ 
mentation in 

this initializer is one word delimiter set for program¬ 
ming, and one for word processing. 

GOLD CONT G 

Replace region with named buffer. This command 
works very much like the keypad "GOLD 9" com¬ 
mand. Select a region of text, and type "GOLD CONT 
G". Enter the buffer name. The selected region will 
be replaced with the contents of the entered buffer. 


GOLD . 

Insert special 
file marker. 
This keystroke 
inserts the 
\~~" 
special posi¬ 
tion marker. 
The mark can 
be found later with the "GOLD /" command. This 
command is useful when you leave EDT, and come 
back later and want to find your place. 


A very useful com¬ 
mand to 
switch the 
screen be¬ 
tween 80 and 
132 column 
mode. (Just 
for VTIOOs 
though.) 

GOLD CONT X 

Copy region to 
named buffer. 
Select a region 
and type GOLD 
CONT X. EDT 
will accept a 
buffer name. 
The selected 
region will 
then be copied 
to the buffer 
name entered. 


GOLD CONT Z 

Complete edit 
and leave EDT 
to the moni¬ 
tor. It is the 
equivalent of 
invoking the 
EDT "EXIT" 
command. 


GOLD / 


Locate position file marker. This command locates 
and deletes the special position marker from the 
text buffer. Leaves the cursor in the position 
formerly occupied by the marker. 
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GOLD B 

Switch to a named buffer. Enter the buffer name to 
switch into followed by the ENTER key. The screen 
will then refresh and you’ll be editing your buffer. 

GOLD C 

Change case, but retain first letter. This command 
will advance a character, and change case on the re¬ 
mainder of the word. Very useful for changing total¬ 
ly uppercase words to capitalized lowercase, or 
capitalized words to all uppercase. 

GOLD F 

Fill a paragraph. Entering this command will cause 
EDT to set the mark, move to next paragraph, and 
fill the selected region. 

GOLD I 

Read file into buffer. Enter the file to open followed 
by ENTER, and the buffer to copy the file into. EDT 
will leave you in the buffer selected after the read is 
completed. VERY useful in extracting needed text 
from other files. Why write something twice? 

GOLD L 

Return to last position. This executes the EDT "FIND 
LAST" command. It is most useful in bouncing be¬ 
tween two buffers without entering the buffer 
names with the ' GOLD B ” command. EDT does, 
however, seem to lose what the other buffer name 
was when a cut or paste is performed. 

GOLD M 

Switch to buffer MAIN. Identical to entering "GOLD 
B" and "MAIN " as the buffer to switch to. Returns 
to the spot where the cursor was when "MAIN " was 
left. 

GOLD 0 

Output named buffer to a file. EDT will ask for the 
output filename, and then the buffer name to write 
to that file. EDT is smart enough to rename any ex¬ 
isting file by that name given to ’.BAK" before 
writing out the file. You will be left in the buffer 
name selected after the output is complete. 

GOLD Q 

Abort edit. This command aborts the current edit, 
saves the journal file, and leaves EDT. This is the equiv¬ 
alent of invoking the EDT "QUIT/SAVE" command. 

GOLD S 

Show all named buffers. Same as the line-mode 
command "SHOW BUFFER". This command helps 
when you've forgotten what buffers were in use. 

5.0 OUTLINE OF INITIALIZER FILE 

The initializer file (figure 3) is set up in stages of defini¬ 
tion. Macro definitions come first, followed by key defini¬ 


tions, with terminal characteristics finishing up. Separating 
the various types of commands makes it easier to add new 
commands in the future. 

The first thing done is defining the word delimiter tog¬ 
gle and screen width toggle macros. The macros are ac¬ 
cessed later by keystrokes, and by the initializer itself. 

Following the macro definitions comes the key defini¬ 
tions. They go from control characters, to GOLD control 
characters, and then to GOLD with letters. This loosely 
follows the ASCII character set and EDT’s internal table. 

The next step is to set terminal characteristics. The 
word wrap is defined as the seventy-ninth column. Truncate 
mode is set (this allows EDT to use the VT100 scrolling 
region for screen changes). EDT is then told to ’’SET 
KEYPAD" and ’’SET MODE CHANGE ”. These commands in¬ 
sure EDT will be started in keypad mode screen editing. The 
word delimiters are then set to programming. 

The last line in the initializer insures that the user will 
start editing in the MAIN buffer. 

By looking at this initializer file and reading the EDT 
manual, many useful things can be learned about EDT. 

6.0 NOTES ON USING BUFFERS 

EDT will allow buffer names at least sixty characters 
long. The valid characters for any buffer name must be 
alpha (A-Z) followed by any combination of alphanumeric 

characters and the underline ("_"). Of course, remember 

not to get carried away with names. Sooner or later you’ll 
have to type that name again! 

There is a very useful thing to know where pulling in 
files with EDT. There are times when you simply want to 
place the entire contents of a file directly into the current 
position in the editing buffer. This is done quite simply. Type 
the sequence "GOLD I ” and enter the file name. When EDT 
asks for the buffer, enter the current buffer name followed 
with a period. (Such as "MAIN.") 

This will copy the file directly into the current position 
of the buffer named. By supplying a buffer name other than 
the one currently being edited, the text will be inserted at 
the last cursor position. 

If the period is not supplied, EDT will insert the con¬ 
tents of the opened file at the top of the specified buffer. 
And, of course, if the entered buffer name doesn’t exist, 
EDT will create it. 

7.0 USE FILES LIKE A LIBRARY 

By opening files and using named buffers, productivity 
can be increased substantially. When writing programs or 
creating documents, its a cinch to reference an existing file. 
Some useful function, subroutine, or lump of text can then 
be extracted and pasted into the file being edited. It 
becomes very easy to have one file somewhere on the 
system that contains all common source code. 

8.0 USE EDT FOR MULTIPLE EDITS 

Many files can be edited in a single EDT session. By us¬ 
ing the "GOLD I ” input and "GOLD 0 ” output commands, 
files may be read into buffers, modified, and written back 
out. So, if you want, you could stay in EDT all day. 
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9.0 CLOSING WORDS 


I recently had the chance to try EDT on VAX. The in¬ 
itializer file works perfectly, with one exception. Apparently 
"CONT X" is a key that VMS intercepts. The work-around I 
used was "CONT V" to duplicate the "CONT X" functions. 

I also found VMS rather impolite in dealing with a 
"CONT Y It doesn’t seem to matter what you’re doing, 
“CONT Y” stops it immediately. This of course includes TECO 
and EDT. 

That does it for this installment. In the next issue, I will 
provide several figures and lists of some internals, neat 
ideas, and problem areas in EDT. I have quite a lot of in¬ 
teresting information. Hope everybody can wait until the 
next issue. Until then, enjoy! 


DELETE 



CONT 

A, 

GOLD 

A 

CONT 

D, 

GOLD 

D 

CONT 

E, 

GOLD 

E 

CONT 

H 



CONT 

J 



CONT 

K 



CONT 

R 



CONT 

T, 

GOLD 

T 

CONT 

u. 

GOLD 

U 

CONT 

w. 

GOLD 

W 

CONT 

Zf 

GOLD 

Z 


Delete previous character 
Compute tab level 
Decrease tab level 
Increase tab level 
Go to start of line 
Delete to start of word 
Define key 
Refresh screen 
Adjust tabs 

Delete to start of line 
Refresh screen 
Return to line mode 


(The keypad keys are not shown here since their function 
should be well known to all.) 

FIGURE 1. standard Keystroke Assignments 

Text editing keys 

GOLD ARROW-UP Go backward 22 lines 
GOLD ARROW-DOWN Advance 22 lines 


CONT B 
CONT F 
GOLD CONT H 
CONT P 

GOLD C 

GOLD F 

Utility keys 

CONT G 

GOLD CONT G 

CONT X 

GOLD CONT X 


Move backward a word 
Advance a word 

Transpose previous two characters 
Move to next paragraph 

Advance character, change case on 
remainder of word 

Set mark, move paragraph, fill region 


Get contents of named buffer and 
insert in text at position 
Substitute contents of named buffer 
with selected region. 

Transfer region to named buffer 
and cut from text 
Transfer region to named buffer 
and retain in text 


Two 

satisfied 

Amcor customers 


“we write 
everything 
with 

Ambase” 

“AMBASE training 
was well presented 
and made our use of 
AMBASE easier. 

We are using 
AMBASE to write 
custom programs and 
customize modules 
within other products. 
It takes less time and 
we write everything 
exclusively with 
AMBASE. 

We are able to 
put out a report in a 
matter of hours as 



Don Chick and Greg 
Jones, Automation, Inc., 
Omaha, Nebraska, 
Service Bureau, using 
the power of AMBASE 
in an integrated 
environment with 
AMCOR’s Accounting 
and Business Control 
Application products. 


opposed to days. 

We couldn’t live with¬ 
out it’.’ 

AMBASE is a 
revolutionary state-of- 
the-art system for 
application develop¬ 
ment and data 
base management. 
AMBASE is increas¬ 
ing programming pro¬ 
ductivity worldwide 
from 100-900%. In 
addition to the data 
management system, 
A MBA SE includes 


a report generator, 
query language, screen 
formatter and auto¬ 
matic code generator. 

If you would like to 
find out more about 
AMBASE, write to 
1900 Plantside Dr., 
Louisville, KY 
40299, U.S.A. or 
call, 502-491-9820. 

We will send you 
free information 
immediately. 



arrx^or computer corp. 


I Headquarters: Louisville, KY Regional Offices: Nationwide Telex 204122 | 


CIRCLE 3 ON READER CARD 


I Standard Initializer File VOl.Ol 15-Sep-81 

1 + 

1 Word Delimiter Macros 


gold . 

GOLD / 
gold I 
GOLD 0 
GOLD S 


Insert special marker 
Locate and delete special marker 
Open file and copy to named buffer 
Output named buffer to a file 
Show named buffers 


Context changing keys 


GOLD CONT D Toggle word delimiter sets 

GOLD CONT W Toggle 80/132 width 

GOLD CONT Z Complete edit and leave EDT 


GOLD B 
GOLD L 
GOLD M 
GOLD Q 


Switch to a named buffer 

Return to last position 

Switch to buffer MAIN 

Abort edit, save journal, leave EDT 


1 - 

DEF M DELIMITERS_PROGRAMMING 

F=DEL1MITERS_PR0GRAMMING 

I 

DEF K GOLD CONT D AS "EXT DELIMITERS_WORD_PROCESSING." 

“Z 

C; ISE EN WO '“Z 9ASC lOASC llASC 12ASC 13ASC 27ASC I ()(),-+*/=• Z EX 

"Z 

I 

DEF M DELIMITERS_WORD_PROCESSING 

F=DELIMITERS_WORD_PROCESSING 

I 

DEF K GOLD CONT D AS "EXT DELIMITERS_PROGRAMMING." 

"Z 

C; ISE EN WO '"Z 9ASC lOASC llASC 12ASC 13ASC 27ASC I ,'“2 EX 
“Z 
1 + 


FIGURE 2. Proposed Additions to Key Assignments 


FIGURE 3. New Initializer File Listing (1 of 2) 


r 


Word 


* Word-11 by 

Data Processing Design, Inc. 
181 W. Orangethorp Avenue 
Placentia, CA 92670 


On Track Systems Provides: 

• Sales 

• Service 

• Installation 

• Demonstrations 

• Training 

• Consulting 


At your 
convenience! 

At your 
office! 


On Track 
Systems, Inc. 

P.O. Box 248 
AmMer, PA 19002-0248 
(218) 842-7133 


CIRCLE 13 ON READER CARD 
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1 Screen Width Macros 


DEF M WIDTH_132 
I-WIDTH_132 

DEF K GOLD CONT W AS "EXT WIDTH_80." 
SE SC 132 
"Z 
1 

DEF M WIDTH_80 
I=WIDTH_80 

DEF K GOLD CONT W AS "EXT WIDTH_132." 
SE SC 80 
''Z 
1+ . 

1 Keys Definitions 


DEF 

K 

CONT 

B 

AS 

DEF 

K 

CONT 

F 

AS 

DEF 

K 

CONT 

G 

AS 

DEF 

K 

CONT 

P 

AS 

DEF 

K 

CONT 

X 

AS 

1 

DEF 

K 

GOLD 

12 

DEF 

K 

GOLD 

13 

DEF 

K 

GOLD 

CONT 

DEF 

K 

GOLD 

CONT 

DEF 

K 

GOLD 

CONT 

DEF 

K 

GOLD 

CONT 

DEF 

K 

GOLD 

CONT 

DEF 

K 

GOLD 

CONT 

DEF 

K 

GOLD 


AS 

DEF 

K 

GOLD 

/ 

AS 

DEF 

K 

GOLD 

B 

AS 

DEF 

K 

GOLD 

C 

AS 

DEF 

K 

GOLD 

F 

AS 

DEF 

K 

GOLD 

I 

AS 

DEF 

K 

GOLD 

L 

AS 

DEF 

K 

GOLD 

M 

AS 

DEF 

K 

GOLD 

0 

AS 

DEF 

K 

GOLD 

Q 

AS 

DEF 

K 

GOLD 

s 

AS 


• + 


"-W." 

"+W." 

"PASTE=?'Put buffer: 

"CUTSR=?'Cut buffer; 

AS "(-22V)." 

AS "(+22V)," 

D AS "EXT DELIMITERS_WORD_PROCESSING." 
G AS "CUTSR=DELETE PASTE*?'Rep buffer: 
H AS "(-C D-C C UNDO." 

W AS "EXT WIDTH_132." 

X AS "EXT CO SELECT TO*?'Cop buffer: ' 
Z AS "EXT EX." 

"I~V\~~''Z -6C." 

"S%~V\“~%%." 

"EXT F=?'Buffer: '. 

"(C SEL W CHGCSR)." 

"(SEL PAR FILLER)." 

"EXT INC ?'lnput file: ' *?' Buffer: ' 
"EXT F L." 

"EXT F=MAIN.." 

"EXT WR ?'Output file: ' »?' Buffer; ' 
"EXT QUIT/SAVE." 

"EXT SH BU." 


1 Set Terminal Characteristics 

1 - 

SE WR 79 
SE TR 
SE K 
SE M C 

DEl1MITERS_PROGRAMMING 


F L." 


1 + 

1 

1 - 

F=MAIN 


Set Buffer to MAIN, and Start 

FIGURE 3. New Initializer RIe Listing (2 of 2) 


[1,11] FASINI.EDT 

DEF M DELIM_PR0G 

f=delim_prog 

I 

DEF K 75 AS "EXT DELIM_WP." 

"Z 

C; ISE EN WO '"Z 9ASC lOASC llASC 12ASC 13ASC 27ASC I ()(I,-+*/*'"Z EX 
"Z 

DEF M DELIM_WP 

F=DELIM_WP 

I 

DEF K 75 AS "EXT DELIM_PROG." 

"Z 

C; ISE EN WO '^Z 9ASC lOASC llASC 12ASC 13ASC 27ASC I EX 

“Z 

DEF M WIDTH_132 
I*W1DTH_132 

DEF K 94 AS "EXT WIDTH_80." 

SE SC 132 
"Z 

DEF M WIDTH_80 
I=WIDTH_80 


DEF K 
SE SC 

94 

80 

AS 

"EXT WIDTH_132." 


DEF 

K 

46 

AS 

"-W." 


DEF 

K 

50 

AS 

"+W. " 


DEF 

K 

51 

AS 

"PASTE*?'Put buffer; '." 


DEF 

K 

60 

AS 

"PAR." 


DEF 

K 

68 

AS 

"CUTSR=?'Cut buffer; 


DEF 

K 

34 

AS 

"(-22V)." 


DEF 

K 

35 

AS 

"(+22V)." 


DEF 

K 

75 

AS 

"EXT DELIM_WP." 


DEF 

K 

78 

AS 

"CUTSR=DELETE PASTE*?'Rep 

buffer; ', 

DEF 

K 

79 

AS 

"(-C D-C C UNDO." 


DEF 

K 

94 

AS 

"EXT WIDTH_132." 


DEF 

K 

95 

AS 

"EXT CO SELECT TO*?'Cop buffer; ' ; 

DEF 

K 

9/ 

AS 

"EXT EX." 


DEF 

K 

117 

AS 

"I“V\““"Z -6C." 


DEF 

K 

118 

AS 

"s%~V\""%% 


DEF 

K 

137 

AS 

"EXT F=?'Buffer: ' 


DEF 

K 

138 

AS 

"(C SEL W CHGCSR)." 


DEF 

K 

141 

AS 

"(SEL PAR FILLSR)." 


DEF 

K 

144 

AS 

"EXT INC ?'Input file: ' 

=?' Buffer 

DEF 

K 

147 

AS 

"EXT F L." 


DEF 

K 

148 

AS 

"EXT F=MAIN.." 


DEF 

K 

150 

AS 

"EXT WR ?'Output file; ' 

*?' Buffer 

DEF 

K 

152 

AS 

"EXT QUIT/SAVE." 


DEF K 
SE WK 

154 

79 

AS 

"EXT SH BU." 



SE TR 
SE K 
SE M C 
DELIM_PROG 
F=MAIN 


LETTERS to the RSTS Pro . . . 


. . . continued from page 6 


I left Volume 3, No. 2, of the RSTS Professional 
on an airplane last week. Would it be possible for 
you to send me another copy of that issue? 

D. Ross Porter 
Pioneer Hi-Bred Internat’l, Inc. 

Des Moines, Iowa 
It's already sent. Ross. We appreciate your getting 
RSTS Professional airborne. And we’re sure the 
RSTS pro that picks up your copy willfind it more 
enjoyable than the reading fare that is currently 
offered on planes. Thanks. 


are primarily a Dibol shop. 

In short, I feel that the comparison done was 
inaccurate, all be it with good intentions. Dibol 
does have its deficiencies (i.e. no supported system 
call functions). Overall, it is a viable language that 
should be considered during application 
development. 

Director of Data Processing 
City of Largo, Florida 
P.S. The magazine is excellent; keep up the good 
work! 


After reading your December, 1981 issue, I was 
disturbed by the article “Benchmark Dibol vs. 
BASIC +2” by Frank Metcalf [p. 82]. Although I 
am sure Mr. Metcalf meant well, he has painted a 
grossly inaccurate picture. He seems to be compar¬ 
ing Dibol v4C with Basic +2. Dibol v4C does not 
support RMS file structures, as most languages did 
not at that time. 

A more accurate comparison would have 
been Dibol v4D vs. Basic +2, or better yet, 
the new Dibol v4.5 and BP2 vl.6 using 
resident libraries. I believe Mr. 

Metcalf would be mildly sur¬ 
prised, to say the least. (I 
have seen some DEC 
internal documents 

Macro!?). Although we use 
Basic +, BP2, Dibol and Datatrieve in our shop, we 


Thank you for your concerned comments. Mike. 
We like to view all sides. 

I certainly appreciated Mr. George May’s article 







SREORDR - Sorting Alphabetically, (RSTS Pro¬ 
fessional. Vol. 3. No. 4). I have his version of 
REORDR running on my machine now; however, 
I found a problem with line 1210 that must be 
corrected before installation. 

Line 1210 should read: 


1210 OOTO 1220 IF LEN(C*> - OX 
\ C* - LCFT<CWTM<C«.32X).3X) 

\ OOTO 1220 IF C* • 

\ OOTO 1203 IF C» <> "ACC* AND C* <> 'ALP* 

\ C3X - -IX IF C* - 'ACC* 

\ C3X - IX IF C« - ‘ALP* 

t PRCSCT TO DEFAULT VALUE. DONE IF DEFAULT INPUT. ELSE 

I OET FIRST THREE CMRRACTERS IN UPPER-CASE ONLT. DONE IF 

) 'CRE*. OET AGAIN IF NOT *ACC* OR *ALP*. OTHERWISE. 

I SET TO ACCESS DATE SETTING 


Thank you for a great publication! 

Steve Young 
Missouri Pacific Railroad Co. 

St. Louis, MO 

Thank you. Steve. We’re glad we could help each 
other. 

I enjoy your publication very much. Keep up the 
good work. Please provide more information con¬ 
cerning hardware failures, potential problems, etc. 
As a starter, an article on RSTS Error Logging 
(ERRDIS) would be great. DEC’s System Man¬ 
ager Documentation is very inadequate along this 
line. 

L. Dawson, Sr. Systems Specialist 
E.I. du Pont de Nemours & Co. 

Kinston, NC 

O. K. L. we’ll try to get an article on Error Logging 
into one of the next few issues. Keep watching. 

Enclosed is payment for another fabulous year 
of RSTS Pro. I can’t express the Joy of finding a 
magazine of this type and caliber. 

Thank you. 
Mark Ruggiero 

Thank YOU, Mark. Our readers make it possible. 
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SHOW 

By Lawrence Fisher 

Los Angeles Unified School District, Los Angeles. CA 


SHOW is a program designed to display files on any video terminal 
that has TECO support on this system. It supports wildcard filespecs 
given in the normal format. 

To run show, simply type SHOW <filespec>. No filespec will 
assume the argument of *.* (note: When displaying files that use 
Basic + lines, be certain to include a at the end of the filespec so 
that TECO can convert the line structure to normal ASCII stream). 

Show has one switch upon entry, that being ‘7s: < text> ” where 
<text> is any phrase you might want the first screen to include. 

The following is a summary of the commands that are 
available from within the program: 


Command Function 


<SP> 


IH 

IL 

tY 

IN 


Go forward one screen (note: this won’t go forward 
an entire screen if there isn’t enough text remain¬ 
ing on that page to complete an entire screen). 

Go back one screen. Same as above. 

Append next page of text. This reads in the next 
page of text after the end of the current page. 

Yank next line of text. This clears the text buffer 
before reading in the next page. 

Go forward to next file. If you are using a wildcard 
filespec this will go to the next file in the sequence. 
If you are at the last file, it will exit the program. If 
you are not reading a wildcard file, you will return 
to the front of your file. 


This prints out the name of the current file you are 
reading in the upper left hand corner of your 
screen. 


< num > Go to the line specified. 

+ < num> Go forward the specified number of lines. 

- < num > Go backward the specified number of lines. 
IZ Exit the program. 



1 ISHOW>.TESI I IlVOl.OOll 1 

i B$ 

Wildcard Filespec 



Last edit 11-11-81 by LWF 1 

1 

1 D$ 

First half of spec 



1 8$ 

Second ■ " " 



Copyright (C) 1981 I 

I N$ 

Get number Macro 



Lawrence Fisher i 

1 S$ 

1 

Search Argument 



1 

Options: 1 

I 

1 1% 

2/3 the screen 



1 

Height 



/S: Search 1 

I 3% 

Last key typed 



1 

1 4% 

EOL for Term 



Q-regs used: 1 

1 9% 

Screen Height 



1 

i 1 N% 

Numeric Arg var. 



A$ Current Filename 1 _ 

J 1 S% 

Search Arg Entered 



I Enter the Get Number Macro I 

@"UN%UN.UPJQNi$<“TUNQN"DQNI$|0;'>I $J\UN.+1,0KQPJQN% 



1 Get the Command line and proccess it out. l 
Z"E G_$ ' 

J 

:§S% %*S B,.D I :§PS%SHOW%% ' 

;§S%/S!%"L .-3,.D .,ZXS .,ZD -lUS ' 

1 strip all spaces & tabs and post fix extension (if none found) 1 

I I Borrowed part of this code from TYPE.TES I 

HXA HXB 0,0XE 1U2 J :@S%"%"U 0,0XA 0,0XB J < 0FS/"ES//; > 

J < @S%:%; 0,.:XA 0,.K > 

J :@S%t%"S .-1U9 §S%1% Q9,.;XA Q9».K ' 

J :@S%(%"S .-1U9 @S%)% Q9,.;XA Q9,.K ' 

J :@S%<»"S .-1U9 @S%>% -1EJ-4"E Q9,.:XB | Q9,.:XA ' Q9,.K ’ 

J :§S%/%"S R .,Z:XE .,ZK ' 

“ %U8 -1EJ-4"E "''7U8 
J ;@S%$%"S ""$:@*UA%% -D ' 

J ;@S%i%"S “ &:§'‘UA%% -D ' 

J :§S%i%'S "''I:§"UA%% -D ' 

J :@S/%/"S '‘"%:§*UA%% -D ' 

J :eS%#%’S * #:@'‘UA%% -D ' 

J :@S%e%"S *“@;e"UA%% -D ' ' 

Z"E -1EJ-5"E §1%*.*% I §1%*.*% • I 

J :§S%.%"F HXD ZJ -1EJ-5"E :QA"N ;@ER%"800*808%"S -2D ' ' ' I 

R .-8 @I%*% ' ' • 

J GA ZJ GB HXA 

J :@S%"EU8%"S 0U2 %1"( ' ;§S%*%"S 0U2 %1"I ' HXB 02"E @EN/"E0B/ ' ' 


and 

another one 


“Ambase 
training... 
a good 
foundation 


39 


‘‘Everything we have 
developed over the 
past year has been 
under AMBASE; our 
student registration 
packages tor high 
school and college, 
the fund accounting 
system for the school 
district, the test scor¬ 
ing program, even the 
payroll system. 

AMBASE training 
gave me a good foun¬ 
dation. Installation 
was very easy, and 
customer service is 
excellent. I always 



get a quick response. 

If someone were to 
take AMBASE away 
from me, I would 
quit. It speeds things 
up so much’.’ 

A MBA SE is a 
revolutionary state-of- 
the-art system for 
application develop¬ 
ment and data 
base management. 
AMBASE is increas¬ 
ing programming pro¬ 
ductivity worldwide 


Ken Haarstad, Lead 
Programmer, Turtle 
Mountain Community 
School Turtle Mountain 
Indian Reservation, 
North Dakota. 


from 100-900%. In 
addition to the data 
management system, 

A MBA SE includes 
a report generator, 
query language, screen 
formatter and auto¬ 
matic code generator. 

If you would like to 
find out more about 
AMBASE, write to 
1900 Plantside Dr., 
Louisville, KY 
40299, U.S.A. or 
call, 502-491-9820. 

We will send you 
free information 
immediately. 


anncor computer corp. 

' O Kan«b company 


Headquarters: Louisville, KY Regional Offices: Nationwide Telex 204122 


CIRCLE 3 ON READER CARD 


1 Attempt to open the file 1 

Q2"N @01N0L00Kl ' :eEN//+l"G 0"A%?Can't find file %:GA @"A%. 

% eOiSTOPl ' HK G* HXB 

INOLUOKI HK :§ER/"EQB"EQE/"U e"A%?Can't find file %:GA @"A%. 
% eOlSTOPI ' 


1 Set up the scope for support unique to it (EOL and Height) 1 
1:W-64"E 9U1 16U9 I 15U1 24U9 ' 

0:W-4"E 155"U4$ 91:"U4$48;"U4$ 75:"U4$ 

I 0:W-10"E 155"U4$ 15;"U4$ I 155"U4$ 75:"U4$ " 


1 Clear the screen, read in a page, and position the cursor either 2/3 I 
I of the way down the screen, or at the item searched for. i 

-1W$ 

Y$ 

QS"L@_%"EQS% OL I Q1L$ ' 

-1W$ 


I Begin the actual command loop I 
<"TU3$ 1 Get a character I 

Q3"D J Q3MNL -IW F< | 1 Test for a numeric , if so, go to that line I 
Q3-8"E -Q9L -1W$ F< j 1 Test for a backspace, if so, go back a screen 1 
Q3-12"E A -1W$ F< I I Test for a "L (FF) if so, append a page I 
Q3-14"E Q2"N gOINOLOKl ' ;@EN//; HK G* HXB INOLOKl HK :§ER/"EQB"EQE/"U 
@0IEND1 ' -IW Y QIL -IW | 1 Test for a "N, if so, go to next file I 
Q3-23"E 0W$ -1W$ F< | 1 Test for a "W, if so, repaint screen 1 
Q3-25"E Y QIL -lw$ F< I I Test for a "Y, if so, Yank in the next page 1 
Q3-26"E eoiENDl | 1 Test for "Z to exit 1 

Q3-32"E Q9L -1W$ F< | ! Test for <SP> to go forward a screen I 
03-42-8 -1,5:W 6:W-1J -IW :G4 :G* $ "T$ -2W QIL 32768W$ -IW 0,5:W F< | 

1 Test for - if so, print filespec in upper right hand corner, and i 
1 await the typing of any character I 

Q3-43"E Q3MNL -IW F< | 1 Test for + sign, for advancing x lines 1 
Q3-45-E Q3MNL -IW 1 Test for - sign for going back x lines 1 
> 


1 Go to the bottom of the screen 1 
lENDl 


6:WJ 

23L 

-IW 

"A 

"A 


1 Test for Scope support 1 
399ET$ 

ETi512-E ''A%No interactive scope available. 
"A 0OISTOPI ' 


1 And terminate all operations. 
I STOP 1 
"C"C 
$$ 


t 
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“INPUT LOOP” PROGRAMMING TECHNIQUE 

By James F. Shaughnessy, Jr., Mirfanta Corp., New York 
Copyright by James F. Shaughnessy. Jr. Original FtJblisher. John Runyon & Computers-R-Digital 

Synopsis: The "Input Loop" is a set of BASIC code to handle screen-oriented data entry 
applications. The same loop is executed for each entry field. The particular path 
through the loop is controlled by a mode variable and a set of parameters for each field. 


Interactive entry and maintenance programs for data 
files are. obviously, one of the more common types of ap¬ 
plications written for minicomputers. When I started to 
write these types of programs. I looked at examples (in 
BASIC) that had been supplied with the mini my firm had 
purchased and used them as a model for what I wanted to 
do. This model consisted of: 

— a creation program to put a new record into the file. 

— an inquiry program to look at records already in the 
file. 

— a maintenance program to allow records in the file 
to be modified. 

— a delete program to remove records from the file. 
The create and modily programs were essentially the 

same, with the exception of code for identifying and retriev¬ 
ing the record from the file, and code for identifying the par¬ 
ticular field(s) within the record to be changed. Another 
standard feature was that for each input field there was a 
section of code of perhaps 10 statements that was almost 
identical to sections of code for the other fields handled by 
the program. 

I soon found the process of writing programs patterned 
after this model to be time-consuming, tedious, and ex¬ 
asperating. The euphoria of sucessfully debugging the 
"create" program quickly dissipated in the realization that I 
couldn’t look at or change the records I had just created un¬ 
til I finished debugging the "inquiry" and "modify” pro¬ 
grams! Another problem was that by being ambitious and 
trying to create a record with a lot of data fields, all handled 
by one program, I ran into memory overflows. 

I started to find a solution to this set of frustrations 
when I realized that I could write a program with a single 
"INPUT ” statement that would handle every field on the 
screen if I could come up with the proper set of parameters 
on which to branch around that input statement. 

The technique which developed out of this centers on 
what I call the "Input Loop". The program flows continually 
through the same loop, branching on a "mode" variable, a 
field counter, and a set of parameters for each field. There 
are four primary "modes" of operation: 

Create 

Inquire 

Modify 

Delete 

In addition, there are two secondary modes of operation: 
change a single field while in primary Create mode 
change a single field while in primary Modify mode 
Each field is uniquely identified by an integer number 
(1%) and has associated with it an array of integer 


parameters (Z9%(I%,X%)). These parameters are used to 
identify: 

0% — Screen row, if < 0%, convert input to uppercase 
1 % — Starting column; if < 0%, clear line before input 
2% — Maximum input length, if <0%. RSET the in¬ 
put with spaces (unless overridden, the input 
will be automatically LSET with spaces to the 
maximum input length) 

3% — Input Restrictor (absolute value): 

1% — accept anything up to the maximum in¬ 
put length 

2% — do not accept null 
3% — accept only maximum input length 
4% — accept only null or maximum input 
length 

5% — accept only “Y" or "N” (if <0%, do not 
pad the input) 

4% — Pointer for edit routine 
5% — Pointer to assign routine 
6% — Pointer to element within array for assign and 
display routines (see below) 

7% — Pointer to format and display routine 
8% — Display length 
9% — Help message number 

Primary branching is to an Edit module, an Assignment 
module, a Format (& Display) module, and an Accept, 
Modify, Cancel module. 

Let’s look at the steps required for creating a new 
record: 

The field counter is set to a starting value, and we start 
through the input loop. 

Parameters are set according to the current field. 

Data is input for that field. 

Perform the edit function for that field. If the input 
doesn’t pass, go back to the input statement. 
Assign the value input to the proper file variable. 
Format and display the file variable. (More on this 
later.) 

Increment the field counter. If it’s not greater than the 
ending value, go back to the top of the input loop. 
Ask the user to Accept, Modify, Cancel (A/M/C) the 
record. 

On Accept, put the record to the file and go back to the 
top of the input loop and reset the field counter for 
the next record. 

On Cancel, just go back to the top of the input loop and 
reset the field counter. 

On Modify, change the mode to 5%. ask the user to 
identify the field to modify, set the parameters for 
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that field, and go through the input loop once. 
Return here to prompt for another field to change. 

If there are no more fields to change, go back to the Ac¬ 
cept/Modify/Cancel prompt. 

Now, for the variations, in the Inquiry mode: 

Have the user identify the record by key and retrieve it 
from the file. 

Display it by going through the input loop for each 
field, only executing the Format module. 

In the Modify mode: 

Identify, retrieve, and display the record as in the in¬ 
quiry mode. 

Change the mode to 6%, ask the user to identify the 
field to change, etc. 

On Accept, update the record. 

In the Delete mode: 

Identify, retrieve, and display the record as in the in¬ 
quiry mode. 

Ask the user to verify his/her intention to delete the 
record. 

Delete it, if verified. 

That’s the essence of the technique. One enhancement 
used in some applications is to automatically record 
modifications to existing records in a log on a field-by-field, 
parameter-driven basis. Others include displaying records 
from different files on the screen at the same time, 
spreading a single record over multiple screens, and zero¬ 
balancing multiple records against a control figure before 
allowing any of them to be accepted. 

Some of the "user-oriented” features include: 

— back up a field by entering a 

— start over by entering a 

— reuse the value in the buffer by entering a 





and 

another one 


“Ambose 
is making 
ouriives 
easier...” 

“AMBASE is making 
our lives easier 
through aid messages, 
and more reliable 
data. It puts the data 
in a common area. 

Amcor’s training 
facilities are very 
conducive to learning 
and the training pro¬ 
gram is complete. 
Installation of 
AMBASE was very, 
very, very, easy, 
and Amcor’s support 
is good. 

Using AMBASE in 
an integrated envi¬ 
ronment with Amcor’s 
application products 
is advantageous to us 



because the systems 
have a number of 
things built into them 
that would have taken 
us a long time to 
develop. Getting 
everythii^ under 
AMBASE completely 
will bring about pro¬ 
gramming conformity!’ 

AMBASE is a 
revolutionary state-of- 
the-art system for 
application develop¬ 
ment and data 
base management. 


Sam Walden, Vernay 
Laboratories, Inc., 
Yellow Springs, Ohio, 
manufacturer of 
laboratory gaskets, 
using AMCOR’S 
AMBASE and 
AM FACS systems 
in an integrated 
environment. 


AMBASE is increas- 
ing programming pro¬ 
ductivity worldwide 
from 100-900%. In 
addition to the data 
management system, 
AMBASE includes 
a report generator, 
query language, screen 
formatter and auto¬ 
matic code generator. 

If you would like to 
find out more about 
AMBASE, write to 
1900 Plantside Dr., 
Louisville, KY 
40299, U.S.A. or 
call, 502-491-9820. 

We will send you 
free information 
immediately. 


aimcor computer corp. 



[ Headquarters: Louisville. KY Regional Offices: Nationwide Telex 204122 _| 
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— get a help message for any field by entering a “?" 

— interprets a "4" as a “Y" and a "0 ” as an "N” in 
situations where only a yes/no response is accep¬ 
table. (This is a feature for operators who are 
primarily using the numeric keypad for data entry.) 

— automatically uppercase the first letter each word 
(This is especially useful in mailing list applications, 
as data en¬ 
try per¬ 
son n e 1 
don’t have 
to use the 
shift key. 

Records 
can be up¬ 
per/lower 
case for 
use in con- 
junction 
with word 
processing 
software.) 

The technique leads 
to increased pro¬ 
grammer productiv¬ 
ity in several ways: 

— Establish 
the record 
layout and 
the screen 
layout and 
the neces¬ 
sary pa¬ 
rameters 
are almost 
obvious. 

— The coding 
is faster, 
because 
you don't 
have to 
think 
about how 
to structure 
the pro¬ 
gram and 
most of 
the code is 
standard. 

— It’s easy to 
debug. 

Since so 
much of 

the code is standard, code that might be causing 
problems is easily isolated. Also, the parameters can 
be changed without recompiling the programs (for 
programs where the parameters are file-based). 

— Programmers using it produce rather standard code 
without feeling forced into it. Program modifica¬ 
tion by programmers who didn’t write the original 
code becomes easier. 


The flowchart on page 81 summarizes the main points of 
the technique. The following program listing is a straight¬ 
forward name and address application written in Basic-Plus, 
Extend. The first implemention of the technique in a DEC 
BASIC was in BASIC + 2, so this is in some respects a “down¬ 
graded ” conversion. 

Significant points about the program: 

1. The output 
file is a 
Record I/O 
file. The 
first block 
contains a 
pointer to 
the next 
available 
block 
number 
for adding 
a new rec¬ 
ord (delet¬ 
ing a rec¬ 
ord does 
not free 
the block 
in which 
it was 
stored.). 
The user ID 
number 
for a rec¬ 
ord is one 
less than 
the file rec¬ 
ord num¬ 
ber in 
which it is 
stored. 

2. The input 
p a r a m - 
eters for 
each field 
are retriev¬ 
ed from 
data state¬ 
ments. The 
variables 
are dimen¬ 
sioned at 
statement 
711, and 
populated 
at state¬ 
ment 820 from the data statements starting at 
25000. (In many applications, I have used virtual ar¬ 
rays to hold the parameters.) 

3. The terminal is opened in echo control mode (8%) as 
file *12%. Screen controls are VT100 ANSI. Ter¬ 
minal handling and input is performed by two 
multistatement functions. FNS$ (see Statement 
20010) and FNI$ (see Statement 20100). 


How to count 
your chickens 
before they 
hatch. 

Surprises can be expensive. Even good news 

can cost money if your company is not prepared for it. 

With financial modeling you can avoid surprises 
and plan calmly for whatever the future has in store. 

FINAR is the latest financial analysis and reporting 
system. It will help you plan: 

■ Budgets ■ Project evaluation 

■ Cash flow ■ Forecasts 

■ Capital investment ■ Consolidation 

All you need is a DEC PDP-11 with RSTS or a VAX-11, 
and FINAR—the Financial Analysis and Reporting Language. 
If you’d like to know how to count your 
chickens before they hatch, call or write: 

Finar Systems Limited 
6000 E. Evans. Suite 2-300 
Denver, CO 80222 • (303) 758-7561 

New York • (212) 222-2784 
Chicago • (312) 876-1081 
Houston • (713) 960-0848 
San Francisco • (415) 956-1178 
Toronto • (416) 245-8473 

FINAR 


V/ 
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In order to adapt the program for a different application, 
the following changes would have to be made: 


Statement 
711, 820 
& 25000 


751 


The input parameters and help messages for 
each field must be changed according to the 
new application. 

Field the output according to the new applica¬ 
tion. 


1SA02.BAS 


Demonstation 

of 'Input Loop' technique 




Copyright 1981 by James F. Shaughnessy, Jr. 





New York, NY 




No warranty 

is expressed or implied about the 



suitability of this program for any application 



M.ODE% = 1%, 

Create new record 




» 2%, 

Inquire on an existing record 




- 3%, 

Modify existing record 




- 4%, 

Delete existing record 




= 5%, 

Modify field while in M.0DE% « 

1% 



= 6%, 

Modify field while in M.ODE% - 

3% 



810 8i 5201 A new table string for the look-up of the field 
to be modified has to be devised. 

821 Include new title for the screen. 

851 Paint the screen with labels appropriate for 

the new application. 

1011 Clear the screen for each new record in the 

most efficient manner for the application. 

1102 8i 1291 New start and end values for the input loop. 

Subroutines 

11000 Insert edit and verification statements ap¬ 
propriate for the new application. 

12000 Insert assignment statements according to 
the new field statement. 

13000 Insert format statements according to the 
new field statement. Formatted numeric out¬ 
put can be accomplished with a "PRINT ^12% 
USING” statement instead of “PRINT *12%, 
X$:’’. (If you are working in BASIC-PLUS-2, it 
is very helpful to have F0RMAT${A,B$) in 
your repertory of frequently-used string func¬ 
tions.) 

Author s Notes: The author makes no claims as to the 
suitability of the accompanying program listing for any pur¬ 
pose other than the demonstration of the programming 
technique described above. This article originally appeared in 
the August. 1981 edition of Computers-R-Digital. 

[1,4] INPUT.LST 


and 

you could 
be the next 

Amcor Computer 
Corporation is one 
of the oldest mini¬ 
computer software 
vendors in the world. 
We have over a 
decade of experience 
in developing soft¬ 
ware solutions for a 
multitude of indus¬ 
tries. 

The people of 
Amcor are com¬ 
mitted to achieving 
their goal of software 
excellence. Respon- 

siveness to the 
requirements of the 
industries served by 
Amcor’s New Gen¬ 
eration Software 
Products is one of the 
essential elements 
that assures our 
continued success as 
a leading producer 
of software. 

Amcor offers a full 
range of Accounting 
and Business Con¬ 
trol application soft¬ 
ware products, as 

well as a compre¬ 
hensive Data Base 
Management System. 

If you would like 
more information on 
how you can join our 
ever-growing list of 
satisfied customers, 
just clip the coupon 
below and drop it in 
the mail, or give us 
a call. We will be 
happy to send you 
free information 
immediately. 

please send more information on: 

RSP1 

n Accounts Receivable 

Cl Accounts Payable 

Cl Payroll 

comoanv name 

Cl Invantofy Control 

Q Soles Analysis 
□ AMBASEOBMS 

Cl AMFACS/G/L Finoncol Manogemenf 

D Order Processing/Bilhryg 

Q Amcor's Bundled System Discount" 

street 

city 


state 


contact 


comouter typo nnrt mnriol 









aiTcor computer corp. 



I Heodquarters: Louisville. KY Regional Offices: Nationwide Telex 204122 
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610 

7U0 


ON ERROR GOTO 23000 
PRINT CHR$(155%) + 


I Set VTIOO to ANSI mode 


DIMENSION STATEMENTS 


DIM X9%(50%) 

1 Used in the CHANGE function 


DIM 


HELP$(16%), 

Z9%(16%,10%) 

1 Dimension statements for help messages and input parameters. 

1 See 25000 for data statements. All prompts are hard-coded. 

I - 

I PILE OPENS 

I- 


OPEN "JFS.DAT" FOR INPUT AS FILE #1% 

FIELD #1%, 2% AS SA.NEXT.RECORDS 
GET «1%, RECORD 1% 

NEXT.RECORD% - CVT$%(SA.NEXT.RECORDS) 

FIELD #1%, 2% AS SA.IDSr 

4% AS SA.PREFIXS, 

10% AS SA.FM.NAMES, 

15% AS SA.L.NAMES, 

30% AS SA.TITLES, 

30% AS SA.COMPANYS, 

30% AS SA.ADDRS, 

13% AS SA.CITYS, 

2% AS SA.STATES, 

5% AS SA.ZIPS, 

10% AS SA.PHONES, 

2% AS SA.NEXT.DATES, 

24% AS PILLS, 

30% AS SA.ALT.CNTCTS, 

1% AS SA.DELETEDS 
1 Map statement for target file, 

1 First record of the file contains the next avialable 
1 record for a new record. 

1 The "ID Number ot a record is 1 less than the file record 
1 number where it is stored. ”ID Number" 00001 is stored in 
1 file record 2%, etc. 

OPEN "KB:" AS PILE #12%, MODE 8% 

I - 

1 

I - 


INITIALIZE VARIABLES 


F.INDS - "YX.PR.FM.LA.TI.CO.AD.CI.ST.ZI.PH.NE.CR.LY.TY.AL." 
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820 1 Read help messages and input parameters from data statements 

821 READ HELP$(J%) FOR J% - 1% TO 16% 

\ READ Z9%(J%,K%) FOR K% - 0% TO 10% FOR J% - 1% TO 16% 

830 IClear screen and print standard heading 

831 PRINT #12%, FNS$CCE",1%,1%) ; 

\ PRINT #12%, FNS$("PC-,1%,31%);"Mirfanta Corporation"; 

\ PRINT #12%, FNS$("PC",2%,31%);"Name & Address File"; 

840 I Inquire as to new mode. 


! beginning in column 26 on rows 6,8,9,11,12,13,17,18,19 & 21 
1 so we are just going to clear to end of line. 

! Label at end of line 15 has to be reprinted. 

1011 PRINT #12%,FNS$("CL",R%,26%); FOR R% = 6% TO 19% 

\ PRINT #12%,FNS$("CE",21%,26%); 

\ PRINT #12%,FNS$("PC",15%,41%);"Next Contact Date"; 

1U50 GOTO 1200 IF M.0DE%>1% 

1100 1 M.0DE%=1%, Create a new record 

I The first field is the ID Number, which is system assigned. 


841 


\ 

\ 

\ 


Print # 12%, 
PRINT #12 %, 
print # 12%, 
PRINT #12%, 


FNS$("CE",3>,1%) ; 

FNS$("PC",23%,2i%) ; 

"Create,Inquire,Modify,Delete (C/I/M/D)" 
" (<cr> to end)"; 


842 R% - -23% 

\ C% - 60% 

\ B9% » 0% 

\ L% - 1% 

\ M% - 0% 

\ X$ - FNI$(0%,1%) 

\ M.ODE% - INSTR(1%,"CIMD",X$) 
\ GOTO 32000 IF M.ODE%*0% 


844 


\ 

\ 

\ 

\ 

\ 


PRINT #12%, 
PRINT #12%, 
PRINT #12%, 
PRINT #12%, 
PRINT #12%, 
PRINT #12%, 


FNS$("CE",3%,35%) ; 
"Create "; IF M.0DE%»1% 
"Inquiry "; IF M.ODE%»=2% 
"Modify "; IF M.ODE%»3% 
"Delete "; IF M.ODE%-4% 
"Mode"; 



1 Paint the 

screen 



PRINT 

#12%, 

FNS${"PC",6%,16%);" 

ID Number"; 

\ 

PRINT 

#12%, 

FNS$("PC",8%,13%);" 

Prfx-FM-Last"; 

\ 

PRINT 

#12%, 

FNS$("PC",9%,20%);" 

Title"; 

\ 

PRINT 

#12%, 

FNS$("PC",11%,18%); 

"Company"; 

\ 

PRINT 

#12%, 

FNS$("PC",12%,18%); 

"Address"; 

\ 

PRINT 

#12%, 

FNS$("PC",13%,14%); 

"City-St-Zip"; 

\ 

PRINT 

#12%, 

FNS$("PC",15%,20%); 

"Phone"; 

\ 

PRINT 

#12%, 

FNS$("PC",15%,41%); 

"Next Contact Date" 

\ 

PRINT 

#12%, 

FNS$("PC",17%,13%); 

"Credit Limit"; 

\ 

PRINT 

#12%, 

FNS$("PC",18%,16%); 

"Sales: LY"; 

\ 

PRINT 

#12%, 

FNS$("PC",19%,23%); 

"TY"; 

\ 

PRINT 

#12%, 

FNS$("PC",21%,8%);" 

Alternate Contact"; 

\ 

GOTO 1050 




1000 1-1 

1 PROGRAM LOGIC 1 

j-1 


1010 I Clear the screen of old information 

1 In this application, all displayed information is displayed 



1101 GOTO 24010 IF NEXT.RECORD%<0% 

1 In which case, the file is filled. 

1102 Z9.START% = 2% 

\ Zy.END% * 16% 

\ GOTO 2000 I The beginning of the input loop 

1200 I We are here because M.ODE%»2% OR M.ODE%=3% OR M.ODE%=4% 

I We first have to retrieve the record which is to be worked with. 
1 

1 WARNING ... 

I We are going to jump into and out of the input loop. 

! 

1201 Z9.START% =0% 1 in case we have to execute statement 2130 

I (entering a "/" or "#") 

1202 1 % = 1 % 

\ GOTO 2030 

1210 1 Return here from input loop 

1 Do what has to be done on the basis of the input, 

I or else display the record retrieved. 

1211 NUM.OF.CHANGES% » 0% IF M.ODE%«3% 

1290 IThe record retrieved will be formatted and displayed 

1291 Z9.START% = 1% 

\ Zy.END% = 16% 

\ GOTO 2000 


2000 I- START OF INPUT LOOP -1 

1 

2010 FOR 1% = Z9.START% TO Z9.END% 

2020 GOTO 2400 IF M.ODE%»2% OR M.ODE%»3% OR M.ODE%=4% 

I In any of these cases, we are just displaying a record whicn 
1 has been retreived from the file. 

2030 R% = Z9%{I%,0%) 


2031 C% « Z9%(I%,1%) 

\ IF (M.ODE%-l% AND M%»3%) 

OR M.ODE%-3% 

OR M.ODE%>4% 

THEN B9% > ABS(Z9%(I%,8%) ) 
ELSE B9% - 0% 


2100 

\ 

\ 

\ 

\ 

\ 


GOTO 2450 IF Z9%(1%,2%)-0% 
L% « Z9%(I%,2%) 

P% = 0% 

M% » ABS(Z9%(I%,9%)) 

A% <= Z9%(I%,3%) 

X$ - FNI$(P%,A%) 


2101 ON M% GOTO 2110,2120,2130,2200,2150 1X$="", M%»1% 

1X$="*", M%=2% 

IXS»"/" OR "#", M%-3% 
IX$=DATA, M%=4% 
!X$«"-", M%«5% 


2110 1 Entered a null, M%>1% 

2111 GOTO 841 IF I%»Z9.START% 

\ GOTO 841 IF M.ODE%»2% OR M.ODE%«3% OR M.ODE%=4% 
\ GOTO 2400 IF M.ODE%*5% OR M.ODE%«6% 

\ GOTO 2200 


2120 1 Entered a "*", M%*2%, Start over 

2121 GOTO 2400 IF M.ODE%»5% OR M.ODE%=6% 

\ GOTO 1010 IF I%>Z9.START% AND M.0DE%»1% 
\ GOTO 841 


2130 1 A "/" or "#" was entered, M%«3% 

! Back up to previous field. 

2131 IF M.ODE%<«4% 

THEN GOTO 841 IF I%<«Z9.START% OR Z9.START%=0% 
\ 1 % « 1 % - 1 % 

\ GOTO 2130 IF Z9%(I%,2%)-0% 

\ GOTO 2030 

2132 GOTO 2400 1M.0DE%«5% OR M.ODE%«6% 


2150 ! A "-" was entered, M%*5% 

! Re-use the information in the buffer. 

I Make sure that the field doesn't represent a key. 

1 Normally, all that has to be done is to go to 
1 statement 2400 to format and display the information. 
1 

2151 GOTO 2030 IF Z9.START%*0% 

\ GOTO 2400 


2200 1 Entered data, M%=4% 

1 Perform any necessary edit checks. 

1 Remember, all input is accepted in string form; 

! therefore, in the edit routines, convert to integer 
! or floating point, also. 

I 

2201 GOSUB 11000 
\ Ir S%=0% 

THEN ON M.ODE% GOTO 2300, 

2400, 

2400, 

2400, 

2300, 

2300 


2210 I Input failed edit check 

! Display help message if one is defined 
! 

2211 GOTO 2250 IF Z9.START%»0% 
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\ M% = ABS(Z9%(I%,9%)) 

\ IF M%=0% 

THEN 2250 

ELSE PRINT #12%, FNS$("EL",24%,1%); 

\ PRINT #12%, HELP$(M%); 

2250 1 Prompt that error occurred 
1 

2251 PRINT #12%, FNS$("PC",23%,24%); 

\ PRINT #12%, "Input Error 1 - <cr> to continue";CHR$(7%); 

\ R% = 23% 

\ C% = 56% 

\ B9% = 0% 

\ L% = 1% 

\ M% - 0% 

\ X%i « FNI$(0%,1%) 

\ PRINT #12%, FNS${"CE",23%,1%); 

\ GOTO 2030 

2300 1 Assign the input value to the file buffer 
! 

2301 GOSUB 12000 

\ NUM.OF.CHANGES% = NUM.OF.CHANGES% + 1% IF M.ODE%=6% 

2400 1 Call the subroutine to Format and Display the field, 

1 unless the virtual table specifies that the ouput length 
1 is zero (0%) 

1 

2401 GOSUB 13000 IF Z9%(1%,8%)<>0% 

2450 ON N.ODE% GOTO 2500, 

2460, 

2460, 

2460, 

5200, 

5200 


2460 


2461 


1 This statement executes only 
I IF M.ODE%=2% OR M.ODE%«3% OR M.ODE%=4% 
1 See statement 2450. 

1 If Z9.START%=0%, we are still in the 
I process of getting the record. 

1 

GOTO 1210 IF Z9.START%»0% 


2500 NEXT 1% 

1 

I-END OF INPUT LOOP 


I 


2510 GOTO 5000 


5000 !-1 

I ACCEPT/MODIFY/REJECT 1 

I-1 


5010 GOTO 5400 IF M.ODE% » 2% 

\ GOTO 5500 IF M.ODE% » 4% 

\ PRINT #12%, FNS$("CE",23%,15);FNS$("PC",23%,26%); 
\ PRINT #12%, "Accept,Modify,Cancel (A/M/C)"; 

\ R% = -23% 

\ C% •= 55% 

\ B9% « 0% 

\ L% * 1% 

\ M% = 0% 

\ X$ « FNI$(0%,3%) 

\ PRINT #12%, FNS$("CE",23%,1%); 

\ ON INSTR(1%,"AMC",X$)+1% GOTO 5010,5100,5200,5300 


Structured disks for all! 
Announcing 

REACT2.TSK 

• a ‘REACT’ replacement that locates & 
extends UFD's 

• all standard ‘REACT’ functions (Delete, 
Standard. Enter) 

• user specified location and length for 
new UFD. 

• high speed — this product uses software 
developed and licensed by Software 
Techniques, Inc. 

• distributed as an RSX or BP2 task on 9 
track 800/1600 tape 

Introductory Price: «200.®° 
Single CPU License 

Nationwide Data Dialog 

70 James Way 
Southampton, PA 18966 

(215) 364-2800 

Coll For Quick Service 
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5210 1 Here is the place to reject any fields which are not allowed 

I to be changed or to ask for a password. 


5100 I Accept 5220 GOTO 5200 IF I%«1% 

5101 GOTO 5160 IF M.ODE%=3% OR M.ODE%=6% 


5110 1 If accepting a new record, 

1 Do whatever has to be done to the system control file, 
1 perform whatever final processing has to be done, 

1 and "PUT" the record. 

1 

5120 LSET SA.ID$ * CVT%$(NEXT.RECORD% - 1%) 

\ LSET SA.DELETBD$ = "N" 

\ 1 % = 1 % 

\ GOSUB 13000 1 Display the ID # assigned 


5240 


GOTO 2030 


5300 


I Cancel 


5301 


M.ODE% = 1% 

IF M.ODE% « 5% 


\ 

M.ODE% = 3% 

IF M.ODE% = 6% 


\ 

PRINT #12%, 

FNS$("CE",24%,1%); 


\ 

PRINT #12%, 

"NO record created!";CHR$(7%); IF M.ODE%-l% 


\ 

PRINT #12%, 

"Record not changed!";CHR$(7%); IF M.ODE%»3% 


\ 

SLEEP 3% 

5320 


GOTO 1010 



5150 PUT #1%, RECORD NEXT.RECORD% 

\ NEXT.RECORD% * NEXT.RECORD% + 1% 

\ PRINT #12%, FNS$("CE",24%,1%); 

\ PRINT #12%, "Record createdl"; CHR$(7%); 

\ SLEEP 3% 

\ M.ODE% » 1% 

\ GOTO 1010 

5160 1 Update changes to an existing record. 

! If NUM.OF.CHANGES%=0%, no changes have been made 
1 


5400 I Inquiry section. 

I Have just completed displaying the requested record 

5401 PRINT #12%, FNS$("CE",23%,32%); 

\ PRINT #12%, "<cr> to continue"; 

\ R% = -23% 

\ C% - 49% 

\ B9« = 0% 

\ L% = 1% 

\ M% * 0% 

\ X5i = FNI$(0%,1%) 

\ GOTO 1010 


5170 PUT #1%, RECORD GET.RECORD% IF NUM.OF.CHANGES% 

518U Print # 12%, FNS$("CE",24%,1%); 

\ PRINT #12%, "NO changes were entered!"; IF NUM.OF.CHANGES%=0% 

\ PRINT #12%, "Record Changed!";CHR$(7%); IF NUM.OF.CHANGES% 

\ SLEEP 3% 

\ M.ODE% * 3% 

\ GOTO 1010 

5200 1 Modify a field. 

5201 M.ODE% * 6% IF M.ODE% » 3% 

\ M.ODE% = 5% IF M.0DE%=1% 

\ PRINT #12%, FNS$("CE",23%,18%); 

\ PRINT #12%, "Enter first two letters of field to change"; 

\ R% = -23% 

\ C% = 61% 

\ B9% = 0% 

\ L% * 2% 

\ M% *= 0% 

\ X$ « FNI$(0%,4%) 

\ GOTO 5010 IF M%<>4% 

\ Xi> = X$ + "." 

\ 1% - INSTR(1%,F.IND$,X$) 

\ GOTO 5200 IF I%=0% 

\ 1% = I%/3% + 1% 1 the divisor depends on the input length 

1 and the offset depends on Z9.START% 


5500 1 Delete an existing record. 

1 Ask first, just to make sure. 

1 

5501 PRINT #12%, FNS$("CE",23%,14%); 

\ PRINT #12%, "Are you sure you want to delete this record ? (Y/N)"; 

5510 R% = -23% 

\ C% » 66% 

\ B9« - 0% 

\ L% = 1% 

\ M% » 0% 

\ X$ = FNI$(0%,5%) 

\ ON M% GOTO 5510,32700,1010,5520,5510 

5520 PRINT #12%, FNS$("CE",24%,1%); 

\ IF X$="N" 

THEN PRINT #12%, "Record not deleted 1";CHR$(7%); 

\ GOTO 5550 

5530 1 We execute this statement only if X$®"Y" 

5531 LSET SA.DELETED$ » "Y" 

\ PUT #1%, RECORD GET.RECORD% 

\ PRINT #12%, "Record Deleted!"; CHRS(7%); 

5550 SLEEP 2% 

\ GOTO 1010 
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11000 


11010 

\ 


11100 

11101 

\ 

\ 

11200 


11201 

\ 

\ 

11210 

11212 

\ 

\ 

\ 

11300 

11301 


\ 


11310 

\ 

\ 

\ 

\ 

\ 

11400 

11401 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

11500 

11501 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

11600 

11601 

\ 

\ 

11700 

11702 

\ 


11704 

11706 


11708 

\ 

11800 

libu2 


11804 

\ 

\ 

11999 

12000 


Edit input, if necessary 


X$= the input string being edited 

X%= integer representation returned, if appropriate 
X = floating point reprsentation returned, 
if appropriate 
I%= Z9%(I%,x) reference 

S%= status, returned as 0% if X$ successfully passed 
all edit checks 


S% = Z9%(I%,4%) 

IF S%=0% 

THEN 11999 

ELSE ON S% GOTO 11100,11200,11300,11400,11500, 
11600,11700,11800,11210 

1 Put through capitalization routine 

X$ = FNCAP$(X$) 

S% = 0% 

GOTO 11999 

! Check that 5 digits have been entered for zip code 


S% = Z9%(I%,2%) 

S% = FNDIGITS%{X$,S%) 

GOTO 11999 

! Check that only digits have been entered in floating point fields 

S% = LEN(X$) 

S% = FNDIGITS%(X$,S%) 

X = VAL(X$) 

GOTO 11999 

! Check for valid telephone number 

GOTO 11999 IF LEN(X$)<>0% 

AND LEN(X$)<>4% 

AND LEN(X$)<>7% 

AND LEN(X$)<>10% 

If LEN(X$)=0% 

THEN S% = 0% 

\ GOTO 11999 

X$ = LEFT(SA.PHONE$,6%) + X$ IF LEN(X$)=4% 

X^» = LEFT(SA.PHONES,3%) + X$ IF LEN(X$)=7% 

GOTO 11999 IF LEN(X$)<>10% 

S% = Z9%(I%,2%) 

S% = FNDIGITS%(X$,S%) 

GOTO 11999 

I Check prefix and edit it if necessary 

TESTS = CVTSS(XS,32%+128%) 

XS = "Mr." IF TESTS="MR" 

XS = "Mrs." IF'TESTS="MRS" 

X$ = "Ms." IF TEST$="MS" 

X5> = "Dr." IF TESTS="DR" 

XS = "Mr." IF TESTS="" AND SA.SEXS="M" 

X> = "Ms." IF TESTS="" AND SA.SEXS="F" 

GOTO 11100 

1 Check title for abbreviation and substitute 

TESTS = CVTS$(XS,32%+128%) 

XS = "PuDlisner" IF TESTS»"PU" 

XS » "President" IF TESTS“"PR" 

XS = "Publisner & Editor" IF TESTS*"PE" 

XS “ "Editor & Publisher" IF TESTS“"EP" 

XS = "Editor" IF TESTS»"ED" 

X$ - "Executive Vice-President" IF TEST$-"EV" 

GOTO 11100 

I Check city and substitute "New York" for "NY" 

TESTS = CVTSS(XS,32%+128%) 

XS » "New York" IF TESTS="NY" 

GOTO 11100 

1 Retrieve the specified record from the file 
GET.RECORD% » VAL(XS) + 1% 

IF GET.RECORD%>»NEXT.RECORD% OR GET.RECORD%<2% 

THEN PRINT #12%, FNSS("PC",24%,1%); 

\ PRINT #12%, "Record specified was never createdl"; 

\ GOTO 11999 

GbT #1%, RECORD GET.RECORD% 

IF SA.DELETEDS»"Y" 

THEN PRINT #12%, FNSS("PC",24%,1%); 

\ PRINT #12%, "Record specified was previously deletedi"; 

\ GOTO 11999 

S% - 0% 

GOTO 11999 

I Put through date function 

If M%-1% 

THEN X% » -1% 

\ S% - 0% 

\ GOTO 11999 

X% « FNDATE%(XS) 

S% » 0% IF X%>0% 

GOTO 11999 


12010 ON Z9%(I%,5%) GOTO 12110,12120,12130,12140,12150, 
12160,12170,12180,12190,12200, 
12210,12220,12230 

12110 LSET SA.PREFIXS = XS 
\ GOTO 12999 

12120 LSET SA.FM.NAMES = XS 
\ GOTO 12999 

12130 LSET SA.L.NAMES = XS 

\ GOTO 12999 

12140 LSET SA.TITLES = XS 

\ GOTO 12999 

12150 LSET SA.COMPANYS = XS 
\ GOTO 12999 

12160 LSET SA.ADDRS = XS 
\ GOTO 12999 

12170 LSET SA.CITYS = XS 
\ GOTO 12999 

12180 LSET SA.STATES = XS 

\ GOTO 12999 

12190 LSET SA.ZIPS = XS 

\ GOTO 12999 

12200 LSET SA.PHONES = XS 
\ GOTO 12999 

12210 LSET SA.NEXT.DATES = CVT%S(X%) 

\ GOTO 12999 

12220 Field #1%, (153% + Z9%(I%,6%)*8%) AS FILLS, 

8% AS SA.FPS 

\ LSET SA.FPS = CVTFS(X) 

\ GOTO 12999 

12230 LSET SA.ALT.CNTCTS = XS 
\ GOTO 12999 

12999 RETURN 

13000 1 Format and print 


1-1 

1 I%=Points to proper row of array Z9%(I%,x%) 1 

I-1 


13010 R% = ABS(Z9%(I%,0%)) 

\ C% = ABS(Z9%(I%,1%)) 

\ PRINT #12%, FNSS("PC",R%,C%); 

\ ON Z9%(I%,7%) GOTO 13110,13120,13130,13140,13150, 
13160,13170,13180,13190,13200, 
13210,13220,13230,13240 


13110 

X% = 

CVTS%(SA.IDS) 


\ 

XS = 

" " 


\ 

RSET 

XS = "00000" + NUM1S(X%) 


\ 

GOTO 

13990 


13120 

X?. « 

SA.PREFIXS 


\ 

GOTO 

13990 


13130 

XS “ 

SA.FM.NAMES 


\ 

GOTO 

13990 


13140 

X« »= 

SA.L.NAMES 


\ 

GOTO 

13990 


13150 

XS = 

SA.TITLES 


\ 

GOTO 

13990 


13160 

XS - 

SA.COMPANYS 


\ 

GOTO 

13990 


13170 

x« - 

SA.ADDRS 


\ 

GOTO 

13990 


13180 

XS = 

SA.CITYS 


\ 

GOTO 

13990 


13190 

XS » 

SA.STATES 


\ 

GOTO 

13990 


13200 

XS - 

SA.ZIPS 


\ 

GOTO 

13990 


13210 

XS = 

MID(SA.PHONES,1%,3%) + "/" + MID(SA.PHONES,4%,3%) 
+ "-" + MID(SA.PHONES,7%,4%) 

\ 

XS - 

SPACES(12%) IF SA.PHONES-"" 


\ 

GOTO 

13990 


13220 

XS = 

DATE S(CVTS %(SA.NeVt.DATE S)) 


\ 

GOTO 

13990 


13230 

FS = 

" S$##,###" IF Z9%(I%,6%)-0% 


\ 

FS = 

"S$,###,###" IF Z9%(I%,6%) 


\ 

FIELD #1%, (153% + Z9%(I%,6%)*8%) AS 
8% AS 

FILLS, 

SA.FPS 

\ 

PRINT #12% USING FS; CVTSF(SA.FP$); 


\ 

GOTO 

13999 


13240 

XS = 

SA.ALT.CNTCTS 


\ 

GOTO 

13990 



RETURN 


13990 PRINT #12%, XS; 


Assign value to file variables 


XS’^value to assign to string fileds 
X%Bvalue to assign to integer fields 
X =value to assign to floating point fields 
I%=pointer to proper row of array Z9%(I%,x%) 


13999 RETURN 

20010 DtF FNSS(AS,R%,C%) 

1 - 

1 

1 Returns string to perform certain VTIOO ANSI screen functions 
1 

i AS = "PC" means position cursor 
I "CS" means clear entire screen 

1 "EL" means clear entire line 










February 1982 page 87 

RSTSPROFESSIONAU^TSPROf^lONALRSTSPROFESSIONAlieTSPROI^IONALRSTSPfWPESSIOfMlJ^SrSPHOrcSSIONALRSrSPTO 


20012 

20013 

20014 

20015 


2U016 


20017 


2U01U 


20019 


20020 


20021 


20025 

20100 


20101 

2U105 

\ 

\ 

\ 

\ 

\ 


2U110 

\ 

\ 

\ 

\ 

\ 

20115 

\ 


20120 


20130 

20135 

\ 

\ 

20140 


"CL" means clear from cursor to end of line 
"CE" means clear from cursor to end of screen 
"CB" means clear from beginning of line to cursor 
"CT" means clear from top ot screen to cursor 

R% & C% are row and column positions, respectively 


B$»"PC.CS.EL.CL.CE.CB.CT" 

CSS«CHR$(155%)+"I" \ CUR$=NUMlS(R%)+";"+NUMl$(C%)+"H" 

ON INSTR{l%,B$,A$)/3% + 1% GOTO 20015,20016,20017,20018, 
20019,20020,20021 

FNS$ » CS$+CUR$ \ GOTO 20025 
! position cursor 

PkINT #12%, CS$+"2J"; \ GOTO 20015 

! clear entire screen then position cursor 

FNS$ » CS$+CUR$+CS$+"2K" \ GOTO 20025 
! clear entire line 

FNSS * CS$+CUR$+CSS+"K" \ GOTO 20025 

! clear from cursor position to end of line 

FNS$ * CS$+CUR$+CS$+"0J" \ GOTO 20025 

! clear from cursor position to end of screen 

FNSS = CS$+CUR$+CS$+"1K" \ GOTO 20025 

! clear from beginning of line to cursor 

FNS$ = CS$+CUR$+CS$+"1J" 

1 clear from beginning of screen to cursor 

FNEND 

DtK FN1$(PROMPT!,A%) 


DUMPER-FILE BACKUP UTILITY 

• Much faster than BACKUP 

• Supports RSTS Large-File 
feature 

• Ideal for big databases 

• Proven and reliable, easy to use 

ENTERPRISE 305 Madison Avenue 
TECHNOLOGY New York, N.Y. 10165 
CORPORATION (212) 972-1860 


CIRCLE 48 ON READER CARD 



To handle terminal input. 

This function returns input from the terminal after 
performing certain checks on it to ensure that it conforms 
to predefined parameters. 

RETS refers to the input from the terminal 

Arguments passed: 

PROMPT! * element ot PROMPTS array, if *0%, disregard, 
if < 0!, RETS is cleared after input 
A! B input allowed: if 1!, any input is allowed 

if 2!, null input is not allowed 
if 3%, input length must = ABS(L!) 
if 4!, input length must be 0! 
or ABS(L%) 

if 5!, input must be "Y" or "N" 

"0" is converted to "N" 

is converted to "N" 

"4" is converted to "Y" 

"\" is converted to "Y" 

it A! is negative, RETS will not be padded 

Variables set before 
referencing the function: 

R! * row coordinate - if R%<0% then the input 
string will be converted to upper case 
C! * column coordinate - if C%<0% (that is, the column 
coordinate is preceded by a negative sign (-)), 
the entire line will be cleared prior to 
printing the message 

B9% « number of blanks to print to blank out old 
information if in maintenance mode 
L% «* number of boxes (indicating length of input 
string - if L%<'0% the input string will be RSET 
otherwise it will be LSET, unless A! < 0!, 
in Which case RETS will not be padded 
M! = help message I to use if requested 
on return: 

M!»l! if the input string is "" (<cr>) 

M!-2% if RETS'"*" 

M!»3! it RETS*"/" or RETS*"#" 

M!=5! if RETS*"-" 

M!^4! if anything else (data) is input 
N.B. A%<0% and L%<0% is an illogical combination 


CUT YOUR DEVELOPMENT TIME 
with ADT-ir** 

an Applications Development Tool for 

VAX/VMS* SYSTEMS 

• Fully Integrated Data Dictionary 

• Utilizing native VMS* file structures 

• Data Entry, Maintenance, Inquiry 

• Full Function Report Writer 

• BASIC Program Code Generator 

• Library of Data Access 8^ Screen Routines 

Interactive Software Systems Inc. 

P.O. Box 3314 
Englewood. Colorado 80155 
(303) 534-2847 


* VAX A VMS arc registered trademarks of Digital Equipment Corp. 


CIRCLE 101 ON READER CARD 



FLAG! * 0% 1 is set if help message is requested 

R.ABS! * ABS(R%) 

C.ABS! * ABS(C%) 

BYTE.COUNT! * ABS(L%) 

A.ABS! * ABS(A!) 

P.ABS! * ABS(PROMPT!) 

IF B9! <> 0! 

THEN PRINT #12!, CHR$(155!);"(";NUM1$(R.ABS!);";";NUM1$(C.ABS!);"H" ; 
STRING$(B9!,32%); 


MoG$ - "" 

BACK! - 0! 

PRINT #12%, CHRS(155!);"(";NUM1$(R.ABS!);";";NUM1$(C.ABS!);"H"; 

PRINT #12!, CHR$(155!);"I2K"; IF C!<0! 

GOTO 20120 IF PROMPT! = 0! 

MSGIS * PROMPTS(P.ABS!) 

MSGIS ■ eVTSS(MSGIS,128!) + " " 

BACK! * LEN(MSGIS) 

PRINT #12!,MSGIS; 

PRINT #12!,STRINGS(BYTE.COUNT!,95!); 

CHRS(155!);"I";NUM1S(R.ABS!);";";NUM1S(C.ABS!+BACK!);"H"; 

PRINT #12!, RECORD 256!, CHRS(0!) ♦ CHRS(BYTE.COUNT!) + CHRS(95!); 

GET #12! 

RE.COUNT! - RECOUNT 

FIELD #12!, RE.COUNT! AS RETS 

IF R!<0! 

THEN RETS * CVTSS(RETS,4!+32!) 

ELSE RETS * CVTSS(RETS,4!) 


^ DEC BEST VALUES 

PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 

SYSTEMS • CPU’s • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 

dataware 

^ incorporated 

Corico Center 

2845 NW 62ncl Street 

Ft. Lauderdale, Florida 33309 

Telephone (305) 979-2844 


CIRCLE 49 ON READER CARD 
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20145 If RET$="!" 

THEN PRINT CHR$(0%); 

\ GOTO 20105 

20150 GOTO 20175 IF RET$="/" OR RET$="-" OR RET$="*" OR RET$="#" 
20155 IF RET$="?" 

THEN PRINT #12%, CHR$(155%);"(24;IH";HELP$(M%); IFM%>0% 

\ PRINT #12%, CHR$(155%)[24;1H"; 

"No help available for this field!"; 

IF M%=0% 

\ FLAG%=1% 



\ GOTO 

20110 


20160 

TrP.COUNT% 

= LEN(RETS) 


20165 

GOTO 

20175 

IF 

A.ABS% = 1% 


\ 

GOTO 

20110 

IF 

( ( A.ABS%=2% AND TYP.COUNT%=0% ) 





OR { A.ABS%=3% 

AND TYP.COUNT%<BYTE.COUNT% ) 

\ 

GOTO 

20110 

IF 

A.ABS%=4% AND 

( TYP.COUNT%<>0% 

AND TYP.COUNT%<>BYTE.COUNT%) 

20170 

GOTO 

20175 

IF 

A.ABS%<>5% 


\ 

RETS 

= "N" 

IF 

RETS="’" 


\ 

RETS 

= "N" 

IF 

RETS="0" 


\ 

RETS 

= "Y" 

IF 

RETS="\" 


\ 

RETS 

= -Y" 

IF 

RETS="4" 


\ 

GOTO 

20110 

IF 

RETS<>"Y" AND 

RETS<>"N" 

\ 

PRINT #12%, 

,CHRS{8%) + RETS; 



20442 X9%(J%) = X9%(J%) - 32% IF X9%(J%)>96% 

AND X9%(J%)<123% 
AND X9%(J%-1%)<48% 

20443 NEXT J% 

20450 CHANGE X9% TO IN.PUT$ 

20499 FNCAP$ = IN.PUT$ 

\ FNEND 

20500 DtF FNDIGITS%(IN.PUT$,S%) 


The purpose of the this function is to verify that- 
IN.PUT$ is a comprised of a given number of digits, 
with no other characters present. 

IN.PUT$ - the string to be tested. 

S% - the number of digits expected 

FNDIGITS%; 0% if IN.PUT$ passed the test, 

S% if IN.PUT$ failed the test 


2U175 

IF 

PROMPT%<0% 


20520 

CHANGE IN.PUTS TO X9% 


THEN 

PRINT #12%, CHRS(155%);"I";NUM1S(R.ABS%);" 


\ 

GOTO 20570 IF S%<>X9%(0%) 



SPACES(BACK%+BYTE.COUNT%); 








20530 

FOR J% = 1% TO X9%(0%) 

2018U 

M%=4% 





\ 

M%=1% 

IF TYP.COUNT%=0% 


20540 

IF X9%(J%)<48% OR X9%(J%)>57% 

\ 

M%=2% 

IF RETS="*" 



THEN FNDIGITS% = S% 

\ 

M%=3% 

IF (RETS="/" OR RETS="#") 



\ GOTO 20570 

\ 

M%=5% 

IF RETS * 








20550 

NEXT J% 

20185 

GOTO 

20195 IF A%<0% 




\ 

BLANK S=SPACE S(BYTE.COUNT%-TYP.COUNT%) 


20560 

FNDIGITS% = 0% 

\ 

IF 

L%<0% 





THEN 

RETS=BLANKS+RETS 


205/0 

FNEND 


ELSE 

RETS=RETS+BLANKS 




20190 

GOTO 

20195 


20600 

DBF FNDATE%(X$) 

20195 

IF 

FLAG% 



J 


THEN 

PRINT #12%, CHRS(155%);"(24;1H";CHRS(155%) 

;" I2K"; 


! The purpose of this function is to translate a date string 


\ 

FLAG% =0% 



1 of the format MM/DD/YY to the corresponding RSTS integer 

20199 

FNIS 

= RETS 



1 value. If the incoming string cannot be successfully 

\ 

FNEND 




! translated, the function returns a value of -1%. 

1 


20400 DtF FNCAP$(IN.PUT$) 


t- 

I 

! The purpose of this function is to capitalize the first 
! letter ot each word of IN.PUT$. This is useful in 
! name k address applications, because it allows the 
! operator to input without regard to the shift key. 

! The maximum length of the input string is 50 characters. 

! If the first letter ot the string is not to be 
! capitalized, or if the first letter ot a word 
! within the string is not to be capitalized, it 
I should be preceded by a "\" (ASCII=92%). If 
! this character appears as the first letter ot 
1 the string, it is dropped and every other character 
! in the string is shifted one position to the left, 
i and a space is appended as the final character. If 
! the character is imbedded in the string, it is changed 
! to a space. In both cases, no change is made to the 
i character following the "\". 

I 

j- 


20420 

CHANGE IN.PUTS TO X9% 


20430 

X9%{1%) = X9%(1%) - 32% IF 

X9%(1%)>96% 



AND X9%(1%)<123% 

20431 

IF X9%(1%)=92% 

THEN X9%(J%) = X9%(J%+1%) 

FOR J% = 1% TO X9%(0%) 


\ X9%(X9%(0%)) = 32% 

20440 FOR J% = 2% TO X9%(0%) 

20441 IF X9%(J%)=92% 

THEN X9%(J%) = 32% 

\ J% = J% + 2% 


20610 MO$ = LEFT(X$,2%) 

\ DA$ = MID(X$,4%,2%) 

\ yR$ = RIGHT(X$,7%) 

\ X$ = MO$ + DA$ + YR$ 

\ GOTO 20690 IF FNDIGITS%(X$,6%) 

20620 MO% = VAL(MO$) 

\ GOTO 20690 IF M0%<1% OR MO%>12% 

20630 YR% = VAL(YR$) 

\ YR% = YR% + 100% IF YR%<3% 

\ GOTO 20690 IF YR%<70% 

\ LEAP% = 0% 

\ LEAP% = 1% IF YR%=YR%/4%*4% 

20640 DA% = VAL(DA$) 

\ DA.LIMIT% = 31% 

\ DA.LIMIT% = 30% IF MO%=4% OR MO%=6% OR MO%=9% OR MO%=ll% 

\ DA.L1MIT% = 28% -»■ LEAP% IF MO%=2% 

20642 GOTO 20690 IF DA%<1% OR DA%>DA.LIMIT% 

20650 FDOM$ = "000031059090120151181212243273304334" 

\ X% = (YK%-70%)*1000% + VAL(MID{FDOM$,MO%*3%-2%,3%)) + DA% 
\ X% = X% + LEAP% IF MO%>2% 


20660 FNDATE% = X% 

\ GOTO 20699 

20690 FNDATE% = -1% 

20699 FNEND 

23000 !-1 

! ERROR HANDLING ! 

I-1 

23010 It ERR=19% 

THEN SLEEP 1% 

\ RESUME 


the IBM Solution 

TM 

HASPBOX 


the CDC Solution 


UTSOOBOX 


?§y[i^g 

rSTS*VAX*RSX ! 

DATA COMMUNICATIONS 


23030 

23990 


• INSTALUITIONS THROUGHOUT NORTH AMERICA AND EUROPE 

• FRONT END PROCESSOR-BASED FOR LOW OVERHEAD 

• FULL LINE UTILIZATION FOR HI-THRUPUT (UP TO 19.2 KB) 

• USER INTERFACE DESIGNED FOR RELIABIUTY AND SIMPLICITY 


61A/A2"l/sa9A COLUMBUS, OH A32"12 USA TWX S'lO ASS 163"! 


IF ERR=5% AND ERL=751% 

THEN OPEN "JFS.DAT" FOR OUTPUT AS FILE #1% 
\ FIELD #1%, 2% AS SA.NEXT.RECORDS 
\ LSET SA.NEXT.RECORDS = CVT%S(2%) 

\ PUT #1%, RECORD 1% 

\ CLOSE #1% 

\ RESUME 

RESUME 11999 IF ERR=52% AND ERL=11701% 

PRINT 

PRINT "Error"; ERR; "at line"; ERL 
CLOSE #1% FOR 1% = 1% TO 12% 

ON ERROR GOTO 0 


I-j 

! SPECIAL MESSAGES TO OPERATOR ! 

I-J 


PRINT #12%, FNSS("EL",24%,1%); 

PRINT #12%, "File is full. Please see software manager I";CHRS(7%); 
SLEEP 3% 

GOTO 841 


DATA STATEMENTS 


CIRCLE 44 ON READER CARD 


25010 ! Help messages 
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***** INTRODUCING* * * * * 

The New HYPERBUS Driver! 

No PDP-11 should be without one! 

Thanks to the latest in Black Hole technology, 
we are able to offer for the first time, the HYPERBUS 
driver and interface. With this you’ll never have to 
wait on memory management again! For the first 
time you’ll never have to worry about the number of 
slots on the bus when considering expansion! 

OUR PATENTED MEMORY SYSTEM RUNS FASTER 

THAN THOSE SUPER-CONDUCTOR SYSTEMS 
COULD POSSIBLY TOUCH! 

’’But how can that be?" you may right now be 
asking. Simple — we have combined the original con¬ 
cepts of high speed memory with our special en¬ 
hanced rotating black hole generators, thus produc¬ 
ing a local field distortion in the space-time con- 
tinueum (WARNING: special care must be taken 
when working in the immediate area of this bus due 
to the possibility of general and special relativity 
distortions). 

Naturally, there are certain drawbacks to this 
new media (such as forcing you to be on a solid floor, 
due to the additional weight added to your system 
(somewhere in the nature of 23 tons), but the space 
savings are incredible), but we feel that this problem 
will be resolved shortly (we are currently developing 
an improved version that uses advanced field 
manipulation to remove the excess weight incurred 
by the HYPERBUS). 

Send now for additional information on the 
HYPERBUS to: 

Incredible Systems, Inc. 

1777773 Trap Row 

New Los Angeles. Luna 


THE DEC/RSTS 
DECISION SUPPORT 
SOLUTION 

When it comes to comprehensive financial, organizational 
or strategic planning, there is only one choice for the 
RSTS user: 

FCS-EPS 

FCS-EPS is the one system that brings the power of the 
computer directly into the hands of the planning 
professional. 

More than just a modeling system, FCS-EPS is a 
sophisticated, open-ended system easily applied to virtually 
any planning task. Over 60 built-in planning-oriented 
functions allow you to be immediately productive? "'What if" 
analysis, goal-seeking, a customized report writer, 
hierarchical consolidation, and a built-in financially oriented 
language make the utility of FCS-EPS virtually unlimited, all 
without the need to know any cryptic computer language. 

The system is also available on the Decsystem 10 and 20, 
VAX and over 40 other hardware/operating system 
combinations. 

700 users of FCS-EPS can't be wrong. Find out more about 
truly user-oriented financial planning systems. Contact EPS 
today. San Jose, CA 800/538-7578 or 408/292-6212; Toronto 
416/279-8711; London (01) 579-6931. 


Clip) and mail to EPS, Inc., 1788 Technolo^i/ Drive, San Jose, CA 95110 

_^Yes. Send me information on FCS-EPS 

_^Yes. Send me "Selecting and Evaluating 

Financial Modeling Systems." 

Name_Title_ 

Company_Address_ 

City_State_Zip_ 

Phone_Computer now in use_ 
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2b011 


2b020 

2b021 


DATA "Enter prefix: Mr., Mrs., Ms., Miss, etc.", 

"Enter first fc middle names and/or initials", 

"Enter last name", 

"Enter person's title (see documentation for abbreviations)", 
"Enter Company N^une", 

"Enter mailing address", 

"Enter City (use 13 character Post Office format)", 

"Enter State abbreviation", 

"Enter 2ip Code (5 digits required)", 

"Enter phone number, including area code (10 digits required)", 
"Enter record ID Number (Range: 00001-32766)", 

'Enter next contact date in format "MM/DD/YY"', 

'Enter credit limit (0 implies unlimited crediti)', 

'Enter sales amount for last year', 

'Enter sales-to-date for the current year', 

'Enter person to contact when primary contact is not available* 
I Input Parameters 

1-Input- Ary Dspl 

1 Row Col Len Rstr Edit Asgn Ele Pmt Len Help Xtra 

1 -- 

DATA 6, 26, 5, -1, 7, 0, 0, 1, 5, 11, 0, 

8, 26, 4, 1, 4, 1, 0, 2, 4, 1, 0, 

8, 31, 10, 1, 1, 2, 0, 3, 10, 2, 0, 

8, 42, 15, 1, 1, 3, 0, 4, 15, 3, 0, 

9, 26, 30, 1, 5, 4, 0, 5, 30, 4, 0, 

11, 26, 30, 1, 1, 5, 0, 6, 30, 5, 0, 


12, 

26, 

30, 

1, 

1, 

6, 

0, 

7, 

30, 

6, 

0 

13, 

26, 

13, 

1, 

6, 

7, 

0, 

8, 

13, 

7, 

0 

-13, 

41, 

2, 

3, 

0, 

8, 

0, 

9, 

2, 

8, 

0 

13, 

45, 

5, 

3, 

2, 

9, 

0, 

10, 

5, 

9, 

0 

15, 

26, 

10, 

-1, 

3, 

10, 

0, 

11, 

12, 

10, 

0 

15, 

59, 

8, 

4, 

8, 

11, 

0, 

12, 

9, 

12, 

0 

17, 

26, 

6, 

-1, 

9, 

12, 

0, 

13, 

10, 

13, 

0 

18, 

26, 

7, 

-1, 

9, 

12, 

1, 

13, 

10, 

14, 

0 

19, 

26, 

7, 

-1, 

9, 

12, 

2, 

13, 

10, 

15, 

0 

21, 

26, 

30, 

1, 

1, 

13, 

0, 

14, 

30, 

16, 

0 


32000 !-1 

! EXIT HANDLER I 

,-- ----- , 


32700 I Clear screen 

32/01 PkINT #12%, FNSS("CE",1%,1%) 

32710 ! Save next record number 

32/11 Field #1%, 2% AS SA.NEXT.RECORDS 

\ LSET SA.NEXT.RECORDS » CVT%S(NEXT.RECORD%) 

\ PUT #1%, RECORD 1% 

32760 CLOSE ij% FOR J% * 1% TO 12% 

\ 1 If you are going to chain somewhere, do it here. 

32767 END 


f 
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$200. RSTS/E* 

WORD PROCESSOR % 
CBEDIT.BAS 

Basic-Plus* program with VDT input, 
window edit and document save. Add, 
locate, change, replace, delete, block 
move and copy merge, etc. Crash 
and operator error recovery. Supports 
DEC, Hazletine and Mime standard 
VDT’s. Others easy to add. 

Fully formatted output (margins, justify, 
center, underscore, super-sub-script, 
readers, page numbers, etc.), to type¬ 
writer, line printer or disk. Bidirectional 
driver for Diablo-Xerox 16-17. 

User’s manual and source 
code included. 

9-Track $200. RK05 $260. ppd 
T. F. Hudgins & Associates, Inc. 

P. O. Box 10946, Houston, Texas 77018 
Woods Martin 713/682-3651 

*TM Digital Equipment Corporation 


CIRCLE 9 ON READER CARD 


REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS! 

All content in this publication is 
copyrighted. 

All reprints must be purchased 
from M Systems, Inc. No other 
reprints are authorized 

All reprints shall contain both a 
cover and a subscription blank. 

Price quotation available on request 


DEC 

SYSTEMS 

& 

COMPONENTS 

C.D. SMITH & 
ASSOCIATES, INC. 
12605 E. Freeway, 
Suite 318 

Houston, TX 77015 
(713) 468-2384 

CIRCLE 54 ON READER CARD 


THE RSTS/E 
SYSTEM MANAGER 

By Jeffrey R. Harrow, 485 Creekview Drive. Stone Mountain. GA 3CX)83 


Last isSUG I mentioned that there ap¬ 
peared to be a problem with the TU77 tape 
drive showing both EOT and BOT conditions 
at the same time (with the expected opera¬ 
tional problems from this situation). This 
condition has now been identified and (at 
my site) rectified, but let’s take this oppor¬ 
tunity to look at the chain of events and 
how RSTS/E significantly aided the problem 
resolution. 

Several months ago I began to occa¬ 
sionally see a situation where, during 
BACKUP, the tape would “hang" at the EOT 
marker shuttling back and forth. The error 
log indicated that both EOT and BOT were 
set (you have to decode the error registers 
for this information). Field Service called in 
and they spent some time readjusting and 
finally replacing the EOT/BOT sensor on the 
drive. The problem appeared to be resolved 
for about a week, at which point it reap¬ 
peared. but this time with the tape shuttl¬ 
ing at the beginning of the tape! 

Field Service again worked with read¬ 
justing and replacing the EOT/BOT sensor 
but the problem began to occur with in¬ 
creasing frequency towards the point where 
I was losing more BACKUPS than were suc¬ 
cessful. Of course, their diagnostics would 
not reproduce the problem, so they were 
limited to the information available once the 
BACKUPS had failed, and herein lay part of 
the problem: The Branch did not have the 
ability to monitor the internal states of the 
drive when it failed, and due to the intermit¬ 
tent nature of the problem, it was not esca¬ 
lated to the District and Regional levels 
(where such equipment and personnel is 
available) until the problem had assumed 
"major" significance to our operation. 

At this point, the error logs indicated 
the following scenario: BACKUP would be 
proceeding as normal, showing an accept¬ 
able number of retrys during the "write" 
phase of a tape. Towards the end of the reel 
(as determined by comparing the time of 
the error entry and the BACKUP message 
on the console printer indicating that the 
"write" phase was "out of room" on that 
volume as well as the “record number" 
counter kept in the drive’s DDB (as displayed 
in the error log)), the drive’s implicit "read- 
after-write" check of the data it had just 
written indicated that there was a "bad" 
spot on the tape. The MM Driver software in 
RSTS/E correctly initiated the industry 
standard recovery procedure where the 
drive backspaces over the "bad" record it 
had just written, writes a long interrecord 
gap over the "bad" spot on the tape, and at¬ 
tempts to re-write the record (now slightly 


farther into the tape). In this case, this pro¬ 
cedure continued several times (which is 
OK), but, having begun near the EOT 
marker, continued its recovery operation 
PAST the EOT marker, where it finally 
found a "good" spot of tape and successfully 
wrote the record. The next entry in the error 
log. about 4.5 minutes after the last “write” 
error, was an indication of "Operation In¬ 
complete.” and (by decoding the registers in 
the error log with the aid of the "Peripherals 
Handbook") both EOT and BOT were set. 
This condition would continue to generate 
hundreds of identical errors (with the DDB’s 
Record Number indicating that it thought 
that it was still at the end of the reell) until 
the drive was taken Off-line. 

Now for the detective work: There was 
no argument that it was an illegal condition 
for EOT and BOT to be set at the same time, 
and a monitoring of the actual sensors indi¬ 
cated that they were set correctly. Addition¬ 
ally. examination of a failing tape indicated 
that the EOT and BOT reflective strips were 
placed within tolerance. So, where was the 
error coming from? The TM03’s manual in¬ 
dicated that the Operation Incomplete error 
was correct when the drive was at BOT and 
doing a Space Reverse operation (also indi¬ 
cated by decoding more error log registers). 
OK, then why was the drive attempting to 
Space Reverse from the beginning of the 
tape, and why was EOT set when we were 
obviously at BOT? 

The next key was that 4.5 minutes dur¬ 
ing which the tape "rewound." plus the fact 
that the DDB in the error log indicated that 
it still believed itself at the end of the reel: 
The TU77 manual indicates that rewind 
time is around 2.5 minutes, and this “re¬ 
wind" was taking around twice that long. It 
turns out, however, that at 125 inches per 
second (the Space Reverse speed of this 
drive) it would take just over 4 minutes to 
Space Reverse, rather than Rewind, the en¬ 
tire tapel In fact, that is just what was hap¬ 
pening ... the drive, while recovering from 
some bad tape near the EOT marker, passed 
the EOT marker (which stays set until it is 
reset by one of several conditions, including 
a Rewind command or backspacing over the 
EOT marker), finally successfully wrote the 
record, noticed that it was at EOT, Space Re¬ 
versed to get "before" the EOT marker (so 
that it could do its end-of-volume work), but 
still found itself at EOT (EOT was still set) so 
it Space Reversed again, but again still found 
itself at EOT so Space Reversed again, and 
indeed kept this up until it got to the begin¬ 
ning of the tape and encountered BOT. At 
this point, it still had to do a Space Reverse 
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(because EOT was set), but this was no 
longer successful because that operation at 
BOT is illegal and (correctly) generated the 
Operation Incomplete error. This error kept 
occurring because once the Operation In¬ 
complete error occurred, the original opera¬ 
tion (Space Reverse) was retried because 
EOT was still set, with the same results. 

Note that the problem is now defined: 
All of the symptoms can be the direct result 
of EOT appearing to be set when it shouldn’t 
be! Now. of course, the question is "hard¬ 
ware or software." While the MM driver 
was examined to see if it was misreading 
the EOT bit or was not re-reading it each 
time. District and Regional Field Service 
brought in a Logic Analyzer and probed vari¬ 
ous points within the drive. Additionally, 
based upon the theory that this series of 
events was triggered only during a retry 
after encountering a "bad" spot near the 
EOT marker, a test tape was prepared with 
EOT placed near the beginning of the tape 
(so that tests wouldn’t take a long time) and 
a scratch was made on the tape near EOT. 
Sure enough, this would consistently cause 
the problem and the Logic Analyzer was 
able to verify that the EOT indicator was not 
being cleared (hence hardware and not soft¬ 
ware)! 

All of the pieces have now fallen into 
place, except why the EOT indication was 
not being reset when the drive Space Re¬ 
versed back over the EOT marker. The Field 
Service personnel rapidly found a section in 
the tape drive’s logic which, in effect, pre¬ 
vented EOT from being cleared when Space 
Reversing back over the marker! They then 
devised a modification which defeated this 
logic, and the drive operated perfectly on 
the test tape and (so far) for all subsequent 
backups! (It should be noted that this field 
modification to the TU77 may not be the 
final "fix” which comes out, but has proven 
quite successful at my site.) 

What was the point of going through 
this detailed description of the quest for my 
too prevelant EOT problem? There are 
several: 

• RSTS/E error logs are extremely valuable 
to the System Manager and should be 
printed on a periodic basis before you’ve 
exceeded the ”100 error limit” for any 
logged area; 

• You should retain these "full” listings for 
as long as feasible to allow you to ex¬ 
amine previous invocations of a problem 
at a later time (in this case, my old error 
log allowed me to quickly verify that all of 
these conditions were initiated during a 
“retry” near EOT once the evidence point¬ 
ed in this direction and saved additional 
investigation of other potential causes); 

• Familiarity with your hardware (not at 
the component level but at the “concep¬ 
tual” level) and their manuals (remember 
the key of the 4.5 minute “rewind”?) can 
significantly aid you in determining the 
actual cause of a problem; 


• Familiarity with the error log printouts 
can aid you in providing Field Service with 
the most pertinent information relating 
to your problem: remember that not all 
Field Service engineers are familiar with 
the error logs from all operating systems; 

• Tracking the historical performance of all 
of your systems’ components can indicate 
trends and provide valuable perspective 
on "new” problems, and can help you to 
get escalation on truly "long-term inter¬ 
mittent” problems (I have a set of pro¬ 
grams which operate on all of my sys¬ 
tems and, using DECnet, provide me with 
a comprehensive database of detailed in¬ 
formation on all errors which occur, and 
which can be queried via Datatrieve for 
information such as “PRINT ALL ERRORS 
WITH DEVICE EQ "MM" AND DESCRIP¬ 
TION CONTAINING “EOT” AND DESCRIP¬ 
TION CONTAINING "BOT" AND DESCRIP¬ 
TION CONTAINING “OPERATION IN¬ 
COMPLETE” SORTED BY SYSTEM’’); 

• Examine all potential sources of informa¬ 
tion relating to a problem ... in this case 
the Console Terminal (KBO:) provided sig¬ 
nificant information in the form of 
OPSER’s time/date stamp for the 
BACKUP messages; 

• Attempt to examine all of the evidence to 
determine if a slippery problem has 
changed ... in this case the sensor was 
apparently misadjusted which caused the 
first problems (with the tape shuttling at 
EOT) while the actual problem left the 
tape shuttling at BOT, and this important 
difference took a while to filter down 
from the Operations folks. 

In general, even a “small” RSTS/E 
system is a complex mix of hardware and 
software which has the ability to “mask" 
problems and make them appear in ways 
which do not directly point to their origin. 
The error logs, handbooks, and manuals 
constitute a wealth of information (tools) 
which can aid you in ferreting out just 
where the problem is occurring, and can 
greatly reduce the time required for its 
resolution. You will have a “better 
managed” system which will yield increased 
"System Uptime,” the bottom line. See you 
next issue. ^ 
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RSTS SITE MANAGEMENT 
AND APPLICATION 
DEVELOPMENT TOOLS 


□ APC 

an automatic password changer 
that creates meaningful six- 
character passwords and up¬ 
dates the ACCT.SYS file, 
allows selective changing of 
passwords and produces three 
informative reports. 


□ ENCRYPTION ROUTINES 
a site security feature which 
encodes ASCII characters and 
can be incorporated into any 
application where sensitive data 
is processed. Also exists as a 
stand alone program for encod¬ 
ing and decoding entire files. 


□ M/APS 

a menu/authorization proces- 
sor and application security 
system that controls user 
access to menus and applica¬ 
tions programs. Uses DEC'S 
VT series CRTs. 


□ STANDARD SUBROUTINE 
LIBRARY 

callable nrtacro-11 routines that 
perform screen and terminal 
I/O. cursor positioning and 
many other necessary program 
functions, including data con¬ 
versions. 


□ SOURCE/FILE 

CROSS-REFERENCE (XREF) 
XREF provides cross-reference 
listings which detail the rela¬ 
tionship between source files, 
callable routines, data files and 
task images. 


□ VT100 ACCOUNTING 
CALCULATOR 
a multi-function calculator de¬ 
signed for user's of DEC'S 
VT1CX) CRTs. Options and 
features beyond the capabili¬ 
ties of the normal Accountant's 
calculator. 


McHUGH. FREEMAN 8f ASSOC., INC. 
1135 Legion Drive 
Elm Grove, Wisconsin 53122 
(414) 784-8250 
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CLASSIFIE 


D Send Classified Ads to: RSTS Classified. P.O. Box 361. Ft. Washington. PA 
19034-0361.5100 per word, first 12 words free with one year s subscrip¬ 
tion. [Be sure to include a phone number or address in your message.] 


PROGRAM Development Aids. This British 
software will cut your costs. Waxride, London, 
01-636-5963. 


FOR software assistance, call Ron at 895-5011 
or Bob at 895-5613. 


CORPANE Industries Inc. (502-491-4433) 
manufactures Ultrasonic Vapor Degreasers. 
See our advertisement in the Thomas Register. 


Author of UNCOMP/UNCMP2, call Mark at 
(617) 646-2473. Evenings EST. 


Just how many [1,*] passwords do you use 
that are catchy and easy to remember?? 

Lots of Luck from LOCK-11 (p. 67). 


RSTS/E PROFESSIONALS 

Positions now open in 
exciting WALL STREET projects. 

•TOP MONEY- 

SUBCONTRACTORS WELCOMED- 

Send resume or call: 

LINK SOFTWARE INC. 

P.O. Box 208, Wall Street Station, New York, 10268 
(212) 426-8921 


SAVE YOUR quarters, games for RSTS/E 
are here. Interactive, real-time games 
for VT52 and VT100 terminals. Some of 
the games available; 

BLKADE: As many as eight players try to 
force each other to collide with their 
growing tails on the screen. 

STRWRS: You have five minutes to 
destroy the Death Star with your single 
X-wing fighter. 

SUBS: Two players manuever around 
islands in an attempt to sink the other 
player’s submarine. 

Games come on 9-track magtape with 
their own high-quality user manuals. 
Order the first game for $39.95, $29.95 
for each additional game. Individual 
manuals available for $9.95 each. 

Send your check, or write or call; 

INFINITY SOFTWARE CORPORATION 

2210 Wllshire Blvd. 

Suite 801 

Santa Monica, California 90403 
(213) 820-2702 


RSTS CHEAP! 

11 /70, 24 Hours, 7 Days 

$5/hour connect + 

$20/MB/MO.or 

$350/port/mo. unlimited 
B+, B+2, DIBOL, etc. 
WORD-11, TECO, ED2 

NATIONWIDE DATA DIALOG 

Dave Mallery 
215 - 364-2800 


DEC BEST VALUES 


PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 

SYSTEMS • CPU's • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 


dataware 

^ incorporated 


Carico Center 
2845 NW 62rxl Street 
Ft, Lauderdale, Flaida 33309 
Telephone (305) 979-2844 



The FAMOUS 
RSTS PROFESSIONAL 
TEE-SHIRT 
is now for sale! 

Send size desired and $6.95 
for each shirt to: 

RSTS TEE-SHIRT 
P.O. Box 361 

Ft. Washington, PA 19034-0361 
Shirts available in adults sizes only: 
Small - Medium - Large - X-ljtrge 



RSTS 

RESCUE 

SQUAD 

We salvage all kinds of disasters: 

• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

• 90% success to date 

• more than 1GB rescued to date 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
Disk Directory expert. 

CALL 24 HOURS 
215-542-7133 


PROGRAMMERS 


LOOKING FOR I 

DEVELOPMENTTIME? 

$ 

NO KILOCORETICK CHARGES 
NO CPU CHARGES 


RSTS/E TIME 


PER HOUR 
CONNECT 
TIME 


BASIC PLUS 

BASIC PLUS^ WITH CROSS 
PASCAL > COMPILER 
••C" J SUPPORT 

WORO-II WORD PROCESSING I 
WAFE ■ 

TECO 
EOT 




PROGRAM 

EDITING 


^BUDGEl 
BYTES 
212 - 
v944-9230y 


OMNICOMPUTER, INC. 

1430 Broadway, New York, N.Y 10018 


IMMEDIATE DELIVERY!!! 


New 11/34 32KB Memory . $ 285 

MUX Boards . $1250 

11/44 256KB . $3875 

11/34 256KB . $2475 

128KB . $1975 

11/34 Floating Point . $2190 

VAX 256KB . $4900 

11/70 512KB . $8950 


Ray (617) 275-6800 


WE put the ARTS in RSTS. Robert W. Hunt & 
Assoc., 424 Skinner Bldg., Seattle, WA 98101, 
(206) 625-9582. 


PASS Corp., Garden Grove, CA. “The Perfect 
10” in computer services. 714-636-2576. 


Large Denver based service bureau serving an 
international clientele, is looking for pro¬ 
grammers to fill positions within its equipment 
dealer services on-line processing division. 
Two years experience required with BASIC+2 
DEC hardware and RSTS/E operating sys¬ 
tems. Requires a desire to work with large and 
complex applications programs covering the 
full array of business applications from Inven¬ 
tory control to general ledger. Salary comen- 
surate with experience. Call (303) 773-1313 or 
send resume to Personnel, P.O. Box 5606 TA, 
Denver, CO 80217. 


PLAN PLUS 
FINANCIAL PLANNING 
SYSTEM 

RSTS/E, $4,500. 

10 Barley Mow Passage 
London, W4 4PH 
Tel. UK 01 994 6477 
Telex 8811418. 


. . . continued on page 95 
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Occasionally we are requested to print news that may be of interest 
to the RSTS community. We are happy to offer this feature to our 
readers. We reserve the right to print only as time and space 
permit. We cannot return photos or manuscripts. Send news 
releases to: RSTS News Release. P.O. Box 361. Ft. Washington. PA 
19034-0361. 


February, 1982 

WHY SYSTEMS, INC. ANNOUNCES DIG- 
ICALC VERSION 1.1 

Redmond, WA — WHY Systems Incorporated is 
announcing verison 1.1 with a significationly 
larger spreadsheet capacity, rapid worksheet 
save and recall, multiple worksheet consolida¬ 
tion, enhanced formatting and data display, and 
data editing. The built-in training procedures, 
on line HELP, and reference manual have all 
been revised and enhanced. Worksheet file 
structures are now documented so that users 
may create utilities to interface their existing 
files with DIGICALC. DIGICALC runs on 
RSTS/E, RSX-llM, VMS and TOPS-10/20. 

DIGICALC is the electronic spreadsheet for 
DEC computers developed and marketed by 
WHY Systems Inc. By the end of December over 
50 copies were installed in such diverse areas 
as banking, accounting, budgeting, manufactur¬ 
ing, engineering, utilities, and corporate 
research and development centers. Version 1.1 
is being distributed to original customers and is 
ready for shipment to new customers. 

Improvements to DIGICALC include a larger 
spreadsheet capacity. A user many now desig¬ 
nate the size worksheet desired up to a maxi¬ 
mum of 600 columns by 500 rows. Even with 
the larger size, worksheets can be rapidly saved 
and recalled with version 1.1's new binary 
worksheet files. 

Formatting options have been expanded to 
include number of decimal places displayed. 


DIGICALC 

VERSION 1.1 

Effective January 1. 1982 

UCENSES 

OPERATING SYSTEM FIRST CPU 2ND-10TH CPU 
RSTS/E $4000 $2800 

RSX-11/M 4000 2800 

VAX/VMS 6000 4200 

Each License includes: Magtape distribution. 1 reference 
manual. 1 Laminated Keypad Reference Card and 30 day 
warranty. 

Each additional Reference Manual including 

1 Laminated Keypad Reference Card .$35.00 

Each additional Laminated Keypad Reference Card . . 6.00 

Alternative Distribution: (Appliesto maintenance updatesalso) 

RL02 Disk Pack .$200.00 

TERMS: 

Purchase orders invoiced net 10. iy 2 % per month 
charge on balance due over 30 days. 

5% Cash discount for payment accompanying order. 
Washington State customers add 6.6% state sales tax. 
Shipment will be made only upon receipt of completed 
and approved software license agreement. 
DEMONSTRATIONS: 

1. A direct dial-up demonstration is available. Complete 
information for its use Is included on a separate page. 

2. Customers may obtain a thirty day money back 
guarantee if they enclose full payment with their order and 
signed license agreement and specify their desire for the 
guarantee. If within thirty days after shipment, they notify 
WSI they are not satisfied with and do not wish to have 
DIGICALC. the agreement will be terminated in accordance 
with its terms and conditions and full payment, less $200 for 
shipping and handling costs, shall be refunded. 

All prices and terms subject to change without notice. 


optional dollar sign display, protected fields, 
and ability to designate several different for¬ 
mats for a single cell, for example: display three 
decimal places, left-justify and protect against 
unintentional data alteration or erasure. 

Another improvement allows the user to edit 
data and equations character by character. 

Worksheet consolidation allows a multiple 
number of worksheets having identical form but 
different input data to be aggregated into one 
master worksheet. This may be used when 
different departments of a company each using 
the same report form submit reports needing to 
be summarized. Individual cell data in one 
worksheet may be used in another worksheet 
simply by referencing that worksheet and cell. 

DIGICALC is available for dial-up 
demonstration. 

One of DIGICALC's users is creating a utility 
program to interface VisiCalc and DIGICALC 
worksheet files. When it is ready, WHY Systems 
will make it available at no cost to DIGICALC 
customers. 

Contact: WHY Systems Inc., 17130 Avondale 
Way NE, Suite 118, Redmond, WA 98052. 
Telephone: (206) 881-2331. 


November, 1981 

USERS GET POOR MAN'S DECNET(R) 

Bedford, MA — Clyde Digital Systems, a leading 
international supplier of stand alone utility soft¬ 
ware, reports that its new CALL-11 package is 
expected to find wide acceptance as an inexpen¬ 
sive alternative to DECNET. Released early this 
year, the product is now installed at many sites 
across the U.S. and Canada with sales increasing 
rapidly. 

According to the spokesman at Clyde Digital 
Systems, no special communication hardware 
is required. CALL-11 is run by the user at any 
terminal connected to the host system. A 
standard communication port is used to call up 
a second computer over ordinary business 
telephone lines with an existing modem or 
accoustic coupler. 

In addition, communication between two 
local computers can be achieved by a simple 
cable, making a direct connection between a 
standard terminal port on each computer. 

Files of any type can be transferred between 
the two computers with CALL-11. This includes 
binary program files together with their file 
attributes. Files can be transferred in either 
direction. The correctness of the information 
transferred is assured independent of tele¬ 
phone line noise. Another feature not found in 
DECNET is the ability to do wildcard transfers 
with a file name inspection latch. 

The spokesman from Clyde Digital emphas¬ 
ized that the CALL-11 package need only 
reside on the computer that initiates the con¬ 
nection. This frees the user from a limited 
network 

cost of a license for each correspondent com¬ 
puter together with the cost of special hard¬ 
ware. This is in direct contrast with DECNET 
which requires the added cost of a license for 
ech correspondent computer. 

It is also noted that CALL-11 does not 
require a system generation. Indeed there is no 
installation required. It is particularly easy to 
use. A new user can become a confident user 
of CALL-11 in 10 to 20 minutes. 

CALL-11 is currently implemented on the 
DEC PDP-11 and VAX series of computers 
under the RSTS and VMS operating systems. 
The correspondent system may be a computer 
other than a PDP-11 or VAX. 

Clyde Digital Systems offers an unusual 
warranty. It is unconditionally guaranteed to 
work perfectly. No maintenance contract is 
needed. CALL-11 may be delivered by dial up 
line to a new user's computer within 24 hours of 
receipt of order. Further information can be 
obtained from Bill Keefe at Clyde Digital Systems, 
Inc., P.O. Box 348, Bedford, MA 01730. Tel: 
(617) 275-2924. 

(R)Registered trademark oi Digital Equipment Corporation 


December, 1982 

NEW SOFTWARE PRODUCT FOR VAX/VMS 
USERS 

Denver, CO — A new software product for DEC 
VAX/VMS users is now available from Interac¬ 
tive Software Systems Inc. 

ADT-11 is an applications development tool 
which provides a structured framework from 
which a new application system can be 
designed, programmed, documented, and easily 
maintained. 'The heart of ADT-11 is a fully 
integrated, totally available data dictionary that 
provides a centralized, unique description of all 
data files, records, data elements, and on-line 
application screens. A BASIC program genera¬ 
tor is available to build new application pro¬ 
grams from a standard program layout, which 
insures program uniformity throughout the 
application system. 'The program generator also 
provides an interface to the data dictionary so 
that record descriptions and screen layouts are 
included in each application program as 
needed. 

ADT-11 provides data access utilities which 
can perform data entry and maintenance (add, 
change, delete), general inquiry (select and 
extract), and a full function report generation 
for any data file that has been described in the 
data dictionary. 

The non-technical user will find that ADT-11 
is a friendly system. Activities are selected from 
a series of menus, all of which have ''HELP' 
messages to provide guidance when needed. 

'The consistency of operation within ADT-11 is 
also comforting. Certain applications may even 
be designed and maintained without assistance 
from the data processing department. For exam¬ 
ple, one-time reports that generally are placed 
at a very low priority by busy data processing 
departments can be user-defined and generated. 

ADT-11 is a multi-facted software package 
which can save a data processing staff a great 
deal of time and effort during applications 
systems development. In addition, ADT-11 also 
provides the kind of structured framework 
which can ease the job of maintaining and 
enhancing the application system. 

For further information, send inquiries to: 
Interactive Software Systems Inc., P.O. Box 
3314, Englewood, CO 80155. Tel. (303)534- 
2847. 


December, 1981 

DIGITAL MANAGEMENT GROUP INTRODU¬ 
CES NEW NETWORKING SYSTEM FOR 
RSTS/E 

Ontario, Canada — Digital management Group 
Ltd., a DEC-oriented software and consulting 
company, has recently announced the introduc¬ 
tion of DMG/NET, a new network communica¬ 
tion system for RSTS/E users. 

"DMG/NET evolved out of a project for one of 
our clients, Labatt Brewing Company Limited", 
says John Dightam, President of DMG. 'Their 
need was for a communication network that 
would provide low cost interactive access from 
any of Labatt's Head Office terminals to a wide 
variety of DEC and non-DEC computers 
throughout Canada and the United States. 

Labatt also needed low cost file transfer capabil¬ 
ity between their seven RSTS/E systems across 
Canada. We were asked to provide all this, with 
the mandatory specification that no modifica¬ 
tions be made to either the standard RSTS/E 
system or PDP-11 hardware as supported by 
DEC." 

Clearly Labatt's problems with RSTS/E as a 
network host were not unique, and DMG/NET 
was developed as a solution to the communica¬ 
tion problems of any RSTS/E system. In addi¬ 
tion to the Datapac interface capability, 
DMG/NET interfaces with Telenet and overseas 
X.25 networks. It provides two-way file transfer 
and interactive dialogue capabilities between a 
local RSTS/E host and other RSTS/E systems. 
Communication with IBM and other non- 
RSTS/E systems is also possible but must be 
initiated by the local RSTS/E host. 

"I believe that DMG/NET is truly an effective. 
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innovative answer to some of today's complex 
technology issues," states Bill Jarvis, Director of 
Information Services for Labartt. 'It has allowed 
us to integrate our national distributed process¬ 
ing network, to access outside data processing 
and office systems facilities, and to take maxi¬ 
mum advantage of common carrier networks - 
all at an amazingly low cost." 

The "alternate path" capability of DMG/NET 
allows all available alternahves for network 
connection to be explored, including all outgo¬ 
ing ports, remote access numbers and leased 
lines, if these facilities are available on the 
computer. If a connection cannot be completed 
because all lines are in use, or because of a 
fault in the network or communications unit, 
DMG/NET will describe the situation in an 
easily understood message displayed on the 
user's screen. 

According to John Kowalyshyn, Labatt's Man¬ 
ager of Technical Services, the need was for a 
trouble-free network based on Datapac. "We 
could see the tremendous cost advantages of 
X.25, but what we wanted was a reliable user 
interface that required only short "plain Eng¬ 
lish" commands. Now, anyone with a RSTS- 
connected terminal on our London Head Office 
computer facilities can access all our own 
computers - plus a whole variety of service 
bureau computers in both Canada and the 
States. The RSTS-to-RSTS file transfer even 
handles compiled code - a tremendous help to 
our software maintenance in the remote sites." 

Through table-driven software, DMG/NET 
provides total interface and network flexibility. 
For example, as new micro-computers become 
available and are interfaced with the RSTS/E 
host, DMG/NET can handle the dialogue 
requirement between the two central processors. 

"DMG/NET has been operating on our PDP- 
11/70 for almost a year now," says Mr. Lynn 
LaRouche, Manager of Data Processing for 
Labatt. "The packet costs are amazingly low 
and we are very happy with the reliability. 

When a network problem does occur, the 
DMG/NET diagnostic routines help us pinpoint 
the problem quickly. I also like the statistics 
and "log" facilities since these really allow me 
to manage the day-to-day traffic on the 
network." 

Bill Jarvis sums it up this way: "The 
DMG/NET concept has proven to be a major 
advance in providing friendly tools for produc¬ 
tivity improvements in both Labatt's office and 
data processing environments". 

DMG/NET is available on either a perpetual 
license or a rental basis - both with comprehen¬ 
sive support plans. “We are really committed to 
support," says DMG President Dightam, "and 
we have designed DMG/NET so that it lends 
itself to remote diagnosis. From our Toronto 
otfice, we can reconfigure, diagnose faults, and 
load new versions into customer computers 
anywhere in the world - just as if they were in 
the next office. Essentially, it's this kind of 
remote communication that X25 and 
DMQ/NET is all about?' 

For more information on DMG/NET, contact 
Ken Allsopp, Digital Management Group Ltd., 
4800 Yonge Street, Suite 208, Willowdale, 
Ontario M2N 6G5, Tel: (416)225-7788. 


December, 1981 

SOFTWARE TECHNIQUES ANNOUNCES 
FAST RSTS/E DIRECTORY "RE-ORDER" 
UTILITY 

Los Alamitos, CA — Software Techniques Inc. 
today announced the release of RDR, a fast disk 
directory "re-order" utility for users of Digital 
Equipment Corp.'s RSTS/E V7.0 operating sys¬ 
tem. Periodic use of RDR significantly improves 
overall system performance by reducing the 
number of disk accesses required to find and 
retrieve files. 

RDR is designed to replace the DEC-supplied 
REORDR program. Written in MACRO-11, RDR 
is not only 30 times faster than the DEC utility, 
but also incorporates many new features. 

RDR's features include: 


• Very high speed (re-ordering 
an RM02 disk in less than one 
minute) 

• Reorders the disk MFD (Master 
File Directory), a RSTS/E first! 

• Extended directory sort options 
(including file name, file type, 
access date, or creation date) 

• Can reorder dismounted disks 
to prevent directory damage 

• Comprehensive documentation 
(which includes a description of 
the RSTS/E directory structure) 

(Please see product description for 
further details.) 

RDR is available directly from 
Software Techniques, Inc. (Soft¬ 
ware Techniques, Ltd. in the U K.) 
and from authorized distributors 
for $150 (U S. cash price, quantity 
one). The RDR User’s Guide is 
available alone for $30. OEM and 
quantity discounts are available. 

Software Techniques, Inc., head¬ 
quartered in Los Alamitos, CA, is 
one of the world's leading mini¬ 
computer consulting groups. Spe¬ 
cializing in Digital's RSTS/E and 
VMS operating systems. Software 
Techniques provides products and 
services world-wide, ranging from 
business accounting software 
packages to high-technology con¬ 
sulting services. 


November, 1981 

SSI ENTERS DECsystem MARKET 
WITH SEVEN PRINTER SYSTEMS 
Fort Lauderdale, FL — Seven line printer 
systems, each compatible with all models of the 
DECsystem 20 computers, have been intro¬ 
duced by Southern Systems, Inc. (SSI). Availa¬ 
ble speeds range from 300 to 1,200 lines per 
minute. 

Introduction of the band-technology line prin¬ 
ter systems by SSI was triggered by the printer 
specialist's development of the new S-20 line 
printer controller. The S-20 is designed to be 
completely hardware and software compatible 
with the DECsystem 2020, the 2040, the 2060 
and 1091. SSI is the only supplier of add-on 
printers for DECsystems 10 and 20. 

The S-20 line printer system is priced 35 to 
55 percent less than DEC's comparable LP20 
line printer system. The lower price of the SSI 
controller is combined with the economical 
pricing of SSI printers to provide DEC users 
with a cost-effective printer product suitable for 
expansion or upgrading existing DECsystems 
or installation with new DECsystems. SSI offers 
installation and continuing maintenance for all 
its line printer systems. 

The S-20 is a single board controller which 
requires only a singel SPC slot (small, peri¬ 
pheral controller slot) within the DECsystem 20 
processor. This gives SSI printer systems 
equipped with the S-20 the distinct advantage 
of requiring only one-sixth of the interfacing 
space within DECsystems. As a result, DEC 
users have the flexibility of operating up to 
eight printers on one DECsystem 20. 

Southern Systems S-20 is a microprocessor 
design using a Z-80. Since it is a single board, 
it also eliminates the need for a special 
backplane or the unibuss cables required by 
DEC'S LP20 controller. 

With S-20-equipped printer systems all circui¬ 
try is included to perform the following opera¬ 
tions: programmable character set, horizontal 
tab features, DAVFU of Paper Tape VFU, 
delimeter features, auto line feed on line over¬ 
flow and DMA transfers. 

The S-20 controller operates in the following 
four modes: RAM load, DAVFU load, print and 
test. The RAM load mode allows the character 
set to be fully progammable. Character transla¬ 
tion is performed by the S-20 where required. 
The DAVFU load mode allows the printer 


DAVFU, if applicable, to be loaded from the 
DECsystem 20's main memory. The printer 
mode uses DMA transfers of DECsystem 20 
memory data to the line printer system. Transla¬ 
tion of data is made when required. The test 
mode allows the S-20 to be tested without 
accessing the printer. 

With the new printer system products. Souther 
Systems continues to follow its policy of guaran¬ 
teed compatibility of printer systems with 
processors. 

Southern Systems is located at 2841 Cypress 
Creek Road, Fort Lauderdale, Fla. 33309; (305) 
979-1000; telex 522135; (800) 327-5602. 

October, 1981 

SOFTWARE PACKAGE TRANSFERS FILES 
BETWEEN TWO DEC MINICOMPUTERS WITH¬ 
OUT USING COMMUNICATIONS INTERFA¬ 
CES. Suitable for LSI-ll's and VAX-ll's as well 
as PDP-ll's, including processors with different 
operating systems and different storage media. 
London, England — A low-cost and easy-to- 
implement means of transferring files (data 
and/or programs) between two Digital Equip¬ 
ment Corp. PDP-11, LSI-11 or VAX-11 compu¬ 
ters, is making its debut in the U.S. Called 
XOREN IPL-11, it is a software package which 
enables file-transfers to be carried out asynchro¬ 
nously between any two machines from the 
three families, either on the same site or in 
different geographical locations. 

Developed by Xoren Computing Ltd, of Lon¬ 
don, England, IPL-11 enables a two-way com¬ 
munications system to be set up for less than 
$3,000 (excluding line costs) and put into 
operation as soon as the program has been 
installed on each machine. 

Transfers can take place in both directions 
simultaneously at rates up to 9600 bits/second, 
over a direct line or telephone line; and can be 
initiated manually or, in certain circumstances, 
under the control of a user's applications 
program. 

The package carries out and monitors the 
entire transfer process. It performs CRC error- 
correction to CCITT Recommendation V41 and, 
when it detects errors, re-transmits the block or 
blocks in which the errors were found. 

A key feature of the package is that it 
eliminates the need to buy dedicated communi- 
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cations interfaces. Transfers are via a terminal 
I/O port on each computer. Thus, for inter¬ 
processor communications between two compu¬ 
ters on the same site, each machine requires 
only a standard DEC DL-11 or equivalent 
single-channel terminal interface card, or a 
single port on a multi-channel interface card 
such as a DZ-11 or DH-11. 

For communications between computers on 
different sites, each processor's interface card 
requires only the addition of the necessary 
modem. 

IPLr 11 provides a number of operational 
advantages. It is media-independent, i.e. 
transfers data irrespective of the data storage 
devices in use on each system. It eliminates the 
need to transport disks and other media when 
transferring data on or off site, and it allows 
data to be quickly stored at a remote site for 
security. 

The package also allows multi-system access 
to expensive peripherals such as large disk 
systems; rapid updating of data and/or pro¬ 
grams on computers at remote sites; communi¬ 
cations between word-processing and infor¬ 
mation-processing systems, and instant 
distribution of information in electronic mail 
apphcations. 

Operating System Independent - Another attrac¬ 
tive feature of IPL-11 is that it is largely 
operating-system independent. Versions are 
available for most major DEC operating sys¬ 
tems, including RSX-llM, RT-11, VAX/VMS 
(RSX-11 compatibility mode), IAS and, most 
recently, RSTS/E. Each version can communi¬ 
cate with any other. 

The version for RSX-llM supports indirect 
command files and has a Remote Activation 
facility which enables a user at one computer to 
transfer files to or from another without an 
operator being present at the other machine. An 
optional file-conversion utility, FLC-11, provides 
a one-pass conversion for applications where 
the two operating systems use different file 
formats. 

A further option IPLLIB, enables transfer 
under the RSX-llM version, to be controlled by 
users applications programs. The package is 
supplied under a 5-year licence. A separate 
licence is required for each combination of cpu 
and operating system under which IPL-11 is to 
run. The two licences required to link two 
operating systems cost $1350 each whichever 
pair of operating systems is specifiec. For large 
orders a system of discounts is applied. 

Xoren is currently setting up a network of 
distributors in the US and Canada to market the 
product to OEM's and end-users 

Xoren Computing Ltd is an independent 
systems/software company formed in 1974. It 
has developed real-time computer systems and 
software for several large organisations in the 
UK, Europe and North America, including the 
British Post Office, I.T.T. and the British Colum¬ 
bia Telephone Company and has developed a 
number of communications-oriented software 
products. 

For more information contact: Mr. John Jarvis, 
Xoren Computing Dd., 28 Maddox St., London 
WIR 9PF, England. Tel. LONDON(Ol)6295932. 


October, 1981 

EGH ANNOUNCES RELEASE OF VERSION 
FIO OF FSORT3 

Lexington, MA — Evans Griffiths & Hart, Inc. 
(EGH) announced the release of version FIO of 
FSORT3, their sort package that runs on both 
DEC'S PDP-11 under RSTS/E and the VAX 
under VMS (using ROSS/V, another EGH 
software package, to provide a RSTS/E 
environment). 

FSORT3 is a machine-language package for 
sorting unblocked and blocked files of fixed- 
length records. A representative of EGH send 
that, for speed, record files are sorted directly 
without the use of intermediate key files. She 
also added that EGH has run stand-alone 
timing tests of FSORT3 on a VAX-11/780 and 
found that 1CX),(XX) 50-byte randomly gener¬ 


ated records could be sorted in under 4.5 
minutes of wall time with under 1.5 minutes of 
CPU time. 

New to the FIO release is a merge utility that 
can be used either to merge or concatenate up 
to eleven input files into a single output file. The 
input files may be of different types from one 
another and from the output file. The merge 
utility can also be used to convert files from one 
type to another (blocked to unblocked, RMS to 
non-RMS, etc.) and to replace records in a 
master file with corresponding records from an 
update file. 

The new FSORT3 release directly supports 
RMS sequential fixed-length-record files, both 
span and nospan. To support RMS files and 
virtual arrays, three new data types have been 
added: a PDP-11 internal-format integer (which 
can be used to represent RMS and virtual array 
integers), an unsigned PDP-11 internal-format 
integer, and a PDP-11 internal-format floating 
point number (which can be used to represent 
RMS and virtual array floating point numbers). 

FSORT3 Version FIO is available for $2,500 
for a single CPU license from Evans Griffiths & 
Hart, Inc., 55 Waltham St., Lexington, MA 
02173. Tel: 617-861-0670. 


November, 1981 

DATA ENTRY SUB-SYSTEM (DES) FOR DATA 
BOSS/32 

North Miami, FL — Florida Computer, Incorpo¬ 
rated (FCI) released version 1.1 of Data 
Boss/32, a relational Data Base Management 
System (DBMS), for VAX/VMS systems. 

Version 1.1 includes the Data Entry System 
(DES) as well as enhancements to Data Boss/32 
and improved user documentation. 

DES enables the user to create data entry 
formats for checking and verifying data prior to 
the update of a data base. DES features include 
range checks, valid items tables, DUP button, 
and default values, to mention only a few. 

Data Boss/32 contains a powerful English- 
like query language and is implemented in 
native mode Fortran IV. Users can interface 
custom code together with Data Boss/32 
utilities. 

Data Boss, initially under RSTS/E, was intro¬ 
duced over five years ago by Florida Computer, 
Incorporated of North Miami, Florida. Modified 
and up>graded over the years it is in use by 
several hundred users worldwide including a 
number of OEM's and time-sharing services. 

For more information call or write, Florida 
Computer, Inc., John H. Wright, 99 NW 183rd 
St., North Miami, FL 33169, 305-652-1710 or 
in Europe contact Turnkey Software, 12 High 
St., Chalfont St. Giles, Bucks, Canada HP8 4QA. 
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Execugraph 

» 20,000 
below our 
competition 

Our software 
package lets you 
produce your own... 

□ Bar Graphs 

□ Pie Charts 

□ Line Graphs 

Highest quality 
compatible with DEC 

Why pay more? 

Interactive 
Systems and 
Software, Inc. 

P.O. Box 348, Danvers. MA 01923 
Telephone: 617/774-6703 


. ~ Send your articles of interest to the RSTS | 

I (/) community to the RSTS Professional on | 

I 5 mag tape in either RNO, PIPor WORD-11 I 
I ^ format. Eighty percent of this issue was I 
\ ^ transmitted via tele-communications | 

I 3 from author’s mag tapes to phototype- • 

I < setting equipment and was not retyped. I 
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Dataram Corporation offers the industry’s 
widest range of DEC-compatible 
peripheral controllers — from 
comparatively simple NRZl tape 
controllers to complex 300 MB storage 
module drive (SMD) controllers. 

An impressive array of state-of-the-art 
controllers, all built around high-speed 
bipolar microprocessors. All software 
compatible with the host LSI-11®, 

PDF®-11, or VAX® minicomputer...and 
all available now. 

And Dataram’s controllers are designed to 
save you money, and, more importantly, 
space — our controllers typically occupy 
half the space required for the comparable 
controller from DEC. Doing it with a 
level of performance that makes any 
member of this family worth looking at. 

The chart shows our current family of 
peripheral controllers, growing every day. 
If you don’t see the controller you need, 
we’re probably working on it right now. 
Call us and discuss your requirements. 


DATARAM 

CORPORATION 


Princeton Road 
Cranbury, New Jersey 08512 
Tel: 609-799-0071 TWX: 510-685-2542 


CONTROLLER 

DESCRIPTION 

COMPATIBII.ITY 

C03 

Cartridge disk controller 

RK05 

C33 

Cartridge disk controller 

RK05 

T03 

NRZl mag tape controller 

TMII/TUIO 

T04/N 

NRZl mag tape controller 

TMll/TUlO 

T04/D 

Dual density mag tape controller 

TMll/TUlO 

T34/N 

NRZl mag tape controller 

TMII/TUIO 

T34 D 

Dual density mag tape controller 

TMll/TUlO 

T36 

Dual density mag tape controller 

TMll/TUlO 

S03/A 

80MB 300MB SMD controller 

RM02/RM05 

S03/A1 

160MB SMD controller 

RM02 

S03/B 

80MB 300MB SMD controller 

RK07 

S03/C 

200MB/300MB SMD controller 

RP06 

S03/D 

96MB CMD controller 

RK06 

S33/A 

80 MB/300 MB SMD controller 

RM02/RM05 

S33/A1 

80 MB 160 MB SMD controller 

RM02 

S33/B 

80 MB 300 MB SMD controller 

RK07 

S33/C 

200 MB 300 MB SMD controller 

RP06 

S33/D 

96 MB CMD controller 

RK06 

Products printed in red are LSI-11 Bus compatible. 


Products printed 
minicomputers. 

in black are UNIBUS® compatible for PDP-11 and/or VAX 


DFC, l.SI-ll. POP. IJNIBUS and VAX are registered trademarks of Digital Equipment Corporation. 
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263-261 • Australia/New Zealand: Anderson Digital Equipment. (03) 544-3444 • India: Infosystems Private Limited. 79281 • Israel: Minix Computers & Systems Ltd.. 03-298783 • 
Japan: Matsushita Electric Trading Co., Ltd., 06 (282) 5111 • Taiwan: Rabbit Associates, Ltd., 7219573-5 • Hong Kong: Automated Systems (HK) Ltd., 5-630256-9 • 
Malaysia: Automated Systems (M) Sdn Bhd., 773777 • Indonesia: P. T. Daya ASL. 584306 • Singapore: Automated Systems (PTE) Ltd., 2354133 

CIRCLE 55 ON READER CARD 




















ABLEVaxDZ 

dears im your 
data tnmc jams. 


You’ve been hurting over the problem with VAX interrupt 
capacity for some time. Now we have a DZ that breaks up 
the terminal handling bottleneck and keeps your VAX system 
in the fast lane. It’s ABLE VaxDZ, the only DZ with an output 
buffer which lets you select any silo depth from 0 to 16 
characters. With this novel feature, you can literally set 
the optimum performance level for your system. 

That alone should clear up the traffic, but 
there’s more! We’ve given ABLE VaxDZ 
an intelligent input silo two times as 
big as the standard DZ buffer. Both 
big and smart means doubling the 
VAX input data-handling capacity in 
some systems or providing dramatic 
improvement in every system all 
the way up to the maximum line 
configuration. We’ve even included 
a "data throttle’’ which allows any 
external device to control the clear-to- 
send (CTS) line and optimize its own 
data rate. 

VaxDZ puts sixteen lines with modem 
control on a single hex-width board at one 
unit load and includes a panel which sup¬ 
ports EIA only (an optional panel supports a 
mix of EIA/CL). Other features include an on¬ 
board LED display for pinpointing malfunctions 
automatically, an on-board self-test for immediate 
verification of system integrity and a variable 
PROM set for proprietary OEM applications. 

Now, here is the best part. ABLE VaxDZ will 
match or beat DH performance in VAX systems 
without the addition of forei g n software. 


jag^ B^^aaga o, . i . ' i ' .i i 

»* I S 

the con^uter experts 

ABLE COMPUTER, 1732 Reynolds Avenue, 
Irvine, California 92714. (714) 979-7030. 


You don’t have to be a hero to deserve an ABLE 
VaxDZ medal. Just be smart enough to use our 
new multiplexer. Write for details. We’ll include 
information on the ABLE line of UNIBUS- 
compatible products, as well as the MAGNUM™ 
Series of computer systems. 


TWX 910-595-1729 ACT IRIN. 
ABLE COMPUTER-UK, 74/76 Northbrook Street, 
Newbury, Berkshire, England RG13 lAE. 
(0635) 32125. TELEX 848507 HJULPHG. 
ABLE COMPUTER-GERMANY, Forsthausstrasse 1, 
8013 Haar (Near Munich), West Germany. 

089/463080,463089. 

VAX and UNIBUS are trademarks of Digital Equipment Corporation. 


CIRCLE 56 ON READER CARD 













WORD-11. 


WORD-11 is a complete 
word processing system. 

It’s responsive. It’s powerful. 

And it’s sharable on up 
to fifty terminals while 
running concurrently with 
data processing. 

WORD-11 is talented, too. 

Designed to work on Digital’s ' 
family of mini computers, WORD-11 has all the standard word 
processing functions. For more sophisticated require¬ 
ments, WORD-11 provides multiple dictionaries for 
spelling error detection. Automatic index and table 
of contents creation. Text search and replace. User 
defined keys. User-controlled hyphenation. And 
automatic footnoting. 

Included with comprehensive list processing, 

WORD-11 offers fast sorting. Flexible selection. 

And extensive math functions. 

And WORD-11 has been proving itself for years. 

You’ll find successful installations in small busines- - 

ses. Fortune 500 companies, in universities and in 
banks—wherever Digital computers are in place. 


Yet despite 
its sophistication, 
WORD-11 is easy to learn 
and easy to use. It’s extremely cost effective. And it’s 
available on RSX-llM, RSX-llM-PLUS, and RSTS/E. 

See how WORD-11 responds for you. Write for our 
brochure or call us direct: 

• Corporate Office: 181 W. Orangethorpe Ave., Suite F, 
Placentia, CA 92670, (714) 993-4160, 
Telex 182-278. 

• New York Office: 420 Lexington, Suite 647, 
New York, NY 10170, (212) 687-0104. 
• Washington D.C. Office: 4520 East-West Hwy., 
Suite 550, Bethesda, MD 20814, (301) 6574098. 


Data Processing lX‘sign,lnc. 


ICOMPUTERCHSTPtBUKX? 


Overseas Distributors: 


Managemerit Information Services PTY. LTD. Jenson, LTD. Network Computer Services PTY. LTD. Systime, LTD. On-Line Computing PTY. LTD. 

Melbourne, Australia Bristol, England Sydney, Australia Leeds, England Subiaco, W. Australia 
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